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ABSTRACT 


Distributed  decision  problems  arise  when  two  or  more  sensors  viewing  the 
same  phenomenon  must  work  cooperatively  to  draw  inferences  about  the 
observed  situation.  Typical  examples  are  in  target  detection  and  target 
classification.  Such  problems  are  characterized  by  distributed  processing  of 
information  and  communication  between  processors  over  a  limited  bandwidth 
data  link.  This  thesis  presents  some  statistical  distributed  decision  algorithms  and 
describes  the  implementation  of  one  of  them  on  a  set  of  loosely  coupled 
multiprocessor  clusters  which  simulate  the  distributed  environment  characterizing 
multisensor  decision  problems.  The  purpose  of  the  implementation  was  to 
investigate  problems  of  communication  and  process  synchronization  in  a  pair  of 
processor  clusters  performing  a  statistical  distributed  decision  algorithm.  This 
thesis  describes  how  these  communication  and  synchronization  problems  were 
addressed  and  solved. 
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I.  INTRODUCTION 
A.  PROBLEM  DESCRIPTION 

Modern  military  battle  systems  increasingly  rely  on  the  coordinated  use  of 
information  from  multiple  sources  to  assess  the  battlefield  situation.  Two  or  more 
remotely  located  sensors  may  observe  the  same  object  with  the  purpose  of 
drawing  inferences  about  the  observation.  A  common  example  is  in  the  use  of 
radars  to  detect  and  eventually  classify  objects  for  purposes  of  an  appropriate 
response.  In  this  type  of  scenario  it  is  important  to  process  the  acquired 
information  jointly  to  arrive  at  the  optimum  or  near  optimum  decision. 

A  simple  example  to  demonstrate  the  distributed  decision  scenario  is 
illustrated  in  Fig.  1  and  explained  below. 


Figure  1  -  Distributed  Decision  Scenario 

Two  sensors,  labeled  A  and  D,  observe  the  same  area  in  space  to  jointly  make  a 
binary  decision  based  on  the  statistical  properties  of  the  observations;  either  a 
target  is  detected  or  there  is  no  target  detected.  In  certain  situations  the  optimal 
decision  made  by  each  sensor  acting  individually  would  result  in  each  deciding 
that  a  target  exists  when  an  optimal  joint  decision  would  decide  that  a  target 
does  not  e.xist.  This  dichotomy  point.s  out  that  in  order  for  a  higher  level  process 
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to  make  a  correct  decision  about  the  object,  the  distributive  nature  of  the 
problem  must  be  built  into  the  front  end  statistical  decision  procedure. 

The  problem  of  distributed  processing  of  the  observation  data  to  achieve 
optimal  or  near  optimal  decisions  is  discussed  herein.  The  sensors  are  configured 
to  perform  computations  to  reduce  the  observation  data  and  to  communicate 
among  themselves  over  a  limited  bandwidth  channel.  Algorithms  which  operate 
in  this  environment  are  called  distributed  decision  algorithms.  Algorithms  which 
perform  computations  on  all  the  observation  data  collected  and  gathered  at  one 
central  location  are  called  centralized  algorithms. 

This  thesis  deals  specifically  with  modeling  a  particular  class  of  distributed 
decision  algorithms  in  a  multiprocessor  environment,  and  with  related  issues  of 
process  synchronization.  Although  centralized  algorithms  are  not  of  concern 
here,  a  companion  thesis  [l]  deals  with  non  real-time  simulation  and  evaluation  of 
distributed  decision  algorithms  and  comparison  with  centralized  algorithms, 

.Although  the  thesis  deals  with  a  particular  class  of  distributed  decision 
algorithms,  the  implementation  problems  presented  by  the  algorithm  would  be 
typical  of  most  distributed  algorithms.  Thus  the  work  can  be  regarded  as 
developing  a  test  facility  in  which  distributed  decision  algorithms  can  be  tested  in 
a  realistic  computational  environment. 

The  problem  is  to  model  the  processing  environment  of  two  sensors  which 
collect  data  on  a  common  object.  The  sensors  and  their  associated  processors 
then  perform  parallel  processing  to  partially  reduce  the  data  and  the  partial 
results  are  exchanged  via  a  local  area  network.  A  final  decision  about  the 
obserA’ed  object  is  then  made  at  each  sensor,  based  on  the  locally  processed  data 
and  the  exchanged  information. 

B.  HARDWARE/SOFTWARE  CONFfCa'RATIO.V 

The  hardware/softvvare  config\iration  used  for  the  modeling  of  the  distributed 
decision  network  was  the  REAL-TIME  CLT.STER  bT.\R  (RTC  *)  system.  This 
system  was  developed  by  thesis  students  tinder  the  .\EGIS  Project  Group  at  the 
Naval  Postgraduate  School.  RTC  was  designed  to  handle  algorithms  of  the  type 


incorporated  here  with  the  appropriate  synchronization  and  control  primitives. 
The  hardware  consists  of  two  clusters  of  single  board  computers  (SBC’s)  sharing 
a  common  backplane  with  an  Ethernet  local  area  network(LAN)  serving  as  the 
communications  link.  The  operating  system  is  a  distributed  multicomputer  real¬ 
time  executive  that  permits  asynchronous  parallel  operation  of  processes  resident 
on  SBC’s  of  the  same  cluster  and  in  separate  clusters  linked  by  the  LAN.  User 
processes,  such  as  the  distributed  decision  algorithms,  are  resident  in  the  local 
memory  of  each  SBC.  They  can  share  data  and  control  variables  using  the 
common  memory  in  each  cluster,  as  well  ais  the  backplane  and  the  LAN  data 
paths. 

detailed  description  of  the  hardware  system  and  the  software  operating 
system  is  provided  in  [2|.  The  distributed  decision  algorithms  are  organized  as  a 
number  of  separate  processes  on  various  single  board  microcomputers  in  the  two 
cluster  arrangement.  Process  synchronization  is  achieved  through  certain  await, 
advance,  and  read  primitives  to  control  the  orderly  multiple/parallel  process 
execution  as  well  as  a  sequencer  to  control  the  allocation  of  the  LAN  shared 
resource.  Each  cluster  simulates  the  operations  that  would  be  performed  by  the 
sensor  processors.  Data  read  from  disk  storage  simulates  the  input  sensor 
observations.  Each  processor  then  performs  the  necessary  computations  to  reduce 
the  data  to  the  statistics  required  for  the  joint  decision.  One  set  of  statistics  are 
then  exchanged  between  clusters  while  another  set  is  retained  locally  and 
computation  is  continued  to  produce  a  combined  statistic  based  on  the  joint 
data.  This  combined  statistic  is  then  compared  with  a  predetermined  threshold  to 
make  the  detection  decision.  Computations  continue  while  data  is  available  for 
input  and  the  decision  results  are  displayed  on  a  local  console  of  each  cluster. 

C.  STRUCTURE  OF  THE  THESIS 

In  the  remainder  of  this  thesis  the  distributed  decision  problem  is  defined  and 
various  distributed  decision  algorithms  and  their  characteristics  are  discussed. 
The  implementation  of  one  algorithm  in  a  distributed  multiprocessor  test 
environment  is  introduced  and  discussed  in  detail.  Emphasis  is  placed  on 


obtaining  solutions  to  the  problems  of  communication  and  synchronization  for 
processes  operating  in  two  remote  computer  systems.  The  specific  contents  of 
each  chapter  is  zis  follows. 

Chapter  II  presents  the  distributed  decision  problem  with  a  discussion  of  a 
specific  distributed  decision  algorithm.  Simple  examples  illustrate  the  detection 
problem  with  a  binary  decision  rule. 

Chapter  III  presents  the  implementation  of  a  specific  detection  distributed 
decision  algorithm  in  the  RTC*  multicomputer  system  and  discusses  important 
issues  relevant  to  the  implementation  of  this  type  of  algorithm. 

Chapter  IV  is  a  summary  of  the  findings  and  summarizes  the  results  of  the 
implementation  in  the  RTC*  multicomputer  system. 


II.  DISTRIBUTED  DECISION  ALGORITHMS 


A.  SUMMARY  OF  ALGORITHMS 

Alternative  approaches  to  a  simple  binary  (two  hypothesis)  decision  problem 
are  presented  in  this  chapter.  The  various  algorithms  have  overall  similar 
characteristics  in  that  local  computations  are  performed  by  each  sensor,  reduced 
data  is  exchanged  over  a  limited  capacity  communications  channel,  and  final 
decisions  are  made  based  on  the  joint  observations  of  the  sensors. 

The  discussion  here  assumes  that  there  are  only  two  sensors  involved  (A  and 
B)  and  that  the  task  is  to  make  a  binary  decision  (ff,:  target  is  present,  or  no 
target  is  present).  Generalization  of  most  of  these  methods  to  multiple  sensors 
and/or  multiple  hypotheses  is  possible. 

1.  Tenney  -  Sandell  Algorithm 

Tenney  and  Sandell  [3]  seem  to  have  been  the  first  to  look  at  distributed 
decision  algorithms  of  the  type  described  here.  In  their  work,  the  observations  of 
the  two  sensors  are  assumed  to  be  independent  when  conditioned  on  the  decision 
hypotheses.  Such  independence  of  observations  could  arise  if  the  sensors 
measured  different  physical  properties  of  the  target  (e.g.  radar  cross  section  and 
infrared  radiation).  The  sensors  each  make  a  binary  decision  beised  on  their  own 
observations  and  send  the  result  (a  single  bit)  to  a  fusion  center  for  arbitration. 
.4  cost  criterion  was  devised  that  depends  on  the  decisions  made  by  each  sensor 
and  on  the  two  hypotheses.  Tenney  and  Sandell  showed  that  the  procedure  that 
minimized  the  expected  value  of  the  cost  is  a  likelihood  ratio  test  at  each  sensor. 
However  the  thresholds  used  by  the  two  sensors  are  coupled  through  some 
integral  equations. 

2.  Relaxation  Algorithms 

Relaxation  algorithms  j4.5]  are  another  way  to  execute  distributed 
decisions.  These  algorithms  are  less  well-founded  in  a  theoretical  sense,  but  seem 
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to  work  well  in  practice.  In  the  relaxation  algorithm  each  sensor  makes  an  initial 
decision  based  on  its  own  observations.  The  decisions  are  exchanged  and  each 
sensor  may  then  revise  its  decision  based  on  the  new  information.  The  procedure 
works  best  when  there  are  multiple  decision  makers  involved  and  may  require 
more  than  a  single  iteration  to  converge. 

3.  The  Generalized  Likelihood  Ratio  Test 

If  the  information  exchanged  between  sensors  is  more  than  a  single  bit, 
but  limited  to,  say,  a  single  floating  point  number,  then  a  whole  new  class  of 
procedures  can  be  suggested.  In  particular,  if  the  observations  are  independent 
as  in  the  Tenney-Sandell  analysis,  then  the  likelihood  ratio  for  the  joint 
observations  factors  into  two  parts,  each  depending  only  on  the  observations  of  a 
single  sensor.  Thus  each  sensor  can  compute  the  likelihood  ratio  (or  log 
likelihood  ratio)  statistic  for  its  own  observations  and  send  it  to  the  other  sensor. 
Each  sensor  then  has  the  complete  information  required  for  making  a  decision  to 
minimize  probability  of  error  based  on  the  joint  observations. 

A  more  interesting  problem  occurs  if  the  observations  are  correlated.  In 
this  case  the  joint  likelihood  ratio  does  not  factor  in  such  a  convenient  way. 
However,  a  procedure  can  be  suggested  that  leads  to  a  relatively  simple  decision 
algorithm.  Let  the  observations  acquired  by  sensors  .A  and  B  be  represented  by 
xo  and  xo  respectively.  The  optimal  centralized  test  to  minimize  the  probability  of 
error  heis  the  form 


Pi(xo,yo) 

P2(xo,yo) 


Pl(Xo) 

PjI^o) 


Pi(yo!  xq)  > 

pj(yo,  Xo)  < 


where  the  subscript  i  on  each  probability  density  function  p  indicates  that  the 
density  function  is  for  hypothesis  H, .  A  distributed  form  of  this  test  can  be 
developed  by  allowing  sensor  to  compute  the  first  term  in  (1)  and  allowing 
sensor  B  to  compute  an  approximation  to  the  second  term  (the  conditional  log 
likelihood  ratio)  by  using  some  estimate  for  the  observations  xq.  This  procedure  is 


•  «•  ^  ^  ^  tT  ^  w  ^:w.>m~.  r.  w".  w,  •  ^  w  .  -  ,  »  » w  * w  — 


known  as  a  gentraliztd  likelihood  ratio  teat  [6].  In  essence,  when  the  density 
functioa  involves  an  unknown  parameter  (in  our  case  Xo  in  the  second  term  in 
(l))  estimates  are  made  based  on  each  hypothesis  (x,  for  H,  and  x,  for  //,)  and 
used  in  the  corresponding  density  function.  The  form  of  the  second  term  then 
becomes 

(2) 

nlyt  ‘.I 

If  sensor  B  sends  the  result  of  this  computation  to  sensor  A,  then  the  test  (1). 
can  be  evaluated  to  make  a  decision.  A  symmetric  computation  can  be  made  with 
the  roles  of  A  and  B  reversed,  where  the  the  estimates  for  yo  are  y,  and  y,  at 
sensor  A. 

The  decision  rule  just  described  has  a  number  of  essential  differences 
from  the  corresponding  centralized  algorithm.  First,  since  the  likelihood  ratio 
evaluated  by  one  sensor  uses  an  estimate  for  the  other  sensor's  observations,  the 
performance  of  the  algorithm  will  in  general  be  different  and  suboptimal  when 
compared  to  the  centralized  test.  Second,  since  the  two  sensors  perform 
symmetric  computations  with  the  roles  of  Xj,  and  yo  reversed,  there  will,  in  general 
be  a  region  of  the  combined  observation  space  where  the  decisions  of  the  two 
sensors  do  not  agree.  The  properties  of  this  class  of  distributed  decision 
algorithms  is  dependent  on  the  various  methods  of  estimating  the  unknown 
observations  xq.  If  the  sensors  are  allowed  to  exchange  only  a  single  statistic  then 
the  estimate  for  xg  mr.st  be  derived  entirely  from  (e.g.  using  MAP  estimation) 
and  the  resulting  decision  rule  is  of  the  form 


•  Vi 
•  » 


H, 

(xo)  *  Ae(yo)  ^  InT  (3) 

This  limits  the  degree  to  which  the  distributed  test  can  approximate  the 
centralized  test  since  in  many  cases  the  centralized  test  will  not  be  separable. 

The  log  likelihood  ratios  in  (3)  are  computed  at  their  respective  sensors 
and  once  the  primed  statistic  is  received,  it  is  added  to  the  unprimed  locally 
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computed  statistic  and  the  result  is  compared  to  the  known  threshold,  In  T.  For 
the  case  of  Gaussian  observations,  the  densities,  p,  and  pj  of  (1),  are  of  the  form 


Pi  = 


(2ir)’  1  K('' 


exp 


m 


<•■>1 


t  =  1,2 


(4) 


and  the  points  where  the  sum  of  the  statistics  in  (3)  is  equal  to  In  T  establish  a 
decision  boundary  for  this  particular  decision  rule.  If  observations  xo  and  yo 
result  in  a  point  with  value  greater  than  the  boundary  value,  the  decision  is  //, 
and  if  the  value  is  less  than  the  boundary  value  the  decision  is  Hj-  Decision 
boundaries  for  Gaussian  density  functions  are  generally  elliptical,  parabolic,  or 
hyperbolic  and  define  two  (not  necessarily  connected)  regions,  one  for  each 
hypothesis. 

4.  Decision  Bzised  on  the  Nearest  Neighbor  Rule 

final  form  of  distributed  decision  algorithm  is  based  on  the  k-nearest 
neighbor  rule  of  pattern  recognition  [7].  In  this  nonparametric  decision  rule,  a  set 
of  observations  to  be  tested  is  represented  as  a  point  in  a  multidimensional 
observation  space.  Also  e.xisting  in  this  space  are  previously  given  sets  of  points 
(training  data)  corresponding  to  each  of  the  two  hypotheses.  The  distance  of  the 
measured  observations  to  each  of  the  other  points  is  computed  to  determine  its  k 
nearest  neighbors.  If  most  of  the  neighbors  correspond  to  W,  then  the  given 
observations  are  also  associated  with  //,,  otherwise  the  given  observations  are 
classified  according  to  //,. 

A  distributed  form  of  this  decision  rule  can  be  developed  by  letting  each 
sensor  determine  a  small  number  of  nearest  neighbors  in  the  x  or  y  subspace.  If 
the  labels  of  these  points  and  their  distances  from  the  observation  data  are 
interchanged,  one  can  compute  the  distances  in  the  xy  observation  space  and 
classify  the  observation  data.  This  policy  does  not  guarantee  that  the  true 
nearest  neighbors  will  always  be  found  but  allows  a  decision  to  be  made  without 
further  iterations  and  exchange  of  information. 


B.  GENERALIZED  LIKELIHOOD  RATIO  TEST 


The  algorithm  based  on  the  generalized  likelihood  ratio  test  was  chosen  for 
implementation  on  the  distributed  system.  It  has  requirements  for 
communication  and  process  synchronization  that  are  representative  of  distributed 
decision  algorithms  in  general.  The  performance  characteristics  of  the  generalized 
likelihood  ratio  test  are  investigated  in  (l).  If  the  joint  density  function  for  vector, 
observations  x  and  y  is  Gaussian,  then  a  quadratic  decision  boundary  results. 
This  is  known  as  a  quadratic  classifier  [8].  The  joint  density  function  for 
observations  x  and  y  has  the  form 
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where  z  is  the  observation  vector  with  elements  x  and  y  and  m'’>  is  the  mean 
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and  K  is  the  covariance  matrix  partitioned  as  follows 
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Note  that  kJ’'  is  the  covariance  matrix  for  x,  kJ*'  is  the  covariance  matrix  for  y, 
and  Bjj '  is  the  cross  covariance  matrix  between  x  and  y.  The  marginal  and 
conditional  densities  are  Gaussian  [9]  and  are  given  by 
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where  the  conditional  covariances  and  means  have  the  form 

Bj;’,. 1  =  1.2  (12) 

=  in<‘>  ^  Bi;>^  >  -  mi*>)  ,  i  =  1.2  (13) 

Since  the  x  term  of  (13)  is  not  available  at  the  given  sensor,  an  estimate  of  the 
form 

X,  =  mi'’  *  Bi;>  Ki’V  '.y  -  mi*’!  ,  i  =  1.2  (14) 


is  used.  The  estimate  is  the  value  of  x  that  ma.ximizcs  the  density  p,  (x  y). 
Symmetric  forms  of  (12),  (13),  and  (14)  are  used  for  K,  , .  m,  and  at  the 
other  sensor. 

The  natural  logarithm  of  (8)  is  given  by 


In  p,(x)  =--i[ln{2)r)^^  In  !  K.('l|  ^  [x  -  xn.'');’'  [K."'!''  'x  -  |  t  =  l,2  (15) 


and  the  natural  logarithms  of  (9),  (10),  and  (11)  are  similarly  obtained.  The 
logarithms  of  the  conditional  likelihood  ratios  are  then  used  to  obtain  the  terms 
on  the  right  side  of  (l).  The  term  given  by 


(Xo)  =  In =  In  p,(xo)-ln  pj(xo) 
P2(*0) 

then  becomes 


A,,  (xo)  =  -  I  [in  K.O  :  +  lx  -  iKi**]-  lx  -  m'**!  ] 

+  [  In'  +  ;x  -  lK,'**p*  x  -  j 


Expanding  (17)  and  collecting  terms  leads  to  the  form 


(xo)  =  x^A  X  -r  b^x  +  e 


where 


is  an  NxN  matrix. 


is  a  lx\  vector,  and 
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is  a  scaler. 


The  coefficients  of  the  conditional  tog  likelihood  ratio.  A  4(xo)  are  called  A  ,  b  , 
and  (•  and  are  derived  in  the  same  way  with  (12).  (13).  and  (14)  substituted  for 
the  corresponding  variables.  Similar  coefficients  are  calculated  for  Aglyo)  and 


^eiVa)  and  are  listed  in  Appendix  A  along  with  the  coefficients  for  (xo)  and 
Aa(xo)-  The  computations  of  A,  b,  c,  A  ,  h”,  and  c  are  performed  prior  to  their 
use  in  a  real-time  application  and  are  input  at  the  start  of  each  process  as  the 
parameters  for  each  of  the  quadratic  classifiers. 


III.  THE  TEST  ENVIRONMENT 


A.  HARDWARE  DESCRIPTION 

The  test  environment  ‘  for  the  distributed  decision  algorithms,  designated 
Real-Time  Cluster  Star  (RTC  *),  consists  of  a  highly  modular  hardware  base  and 
a  highly  flexible  operating  system.  The  hardware  consists  of  two  clusters  of 
single  board  computers  (SBC’s),  each  sharing  a  common  backplane  and  an 
Ethernet  local  area  network  (LAN)  serving  Jis  the  communication  link.  Thus 
each  cluster  can  be  thought  of  as  a  node  of  a  network  and  each  node  has  multiple 
processors  on  a  common  bus. 

1.  The  Cluster 

The  cluster  configuration  is  diagramed  in  Figure  2.  Each  cluster  consists 
of  three  SBC’s  physically  connected  by  the  ML’LTIBUS.  Each  SBC  has  64K 
RAM  of  local  memory  and  can  access  an  additional  64K  R.\M  board  of  shared 
memory  and  a  32K  R.\M  board  of  common  memory  on  the  MULTIBUS.  Also 
connected  to  the  MULTIBUS  are  hard  and  floppy  disk  drives  used  for  bootup 
and  input/output  operations. 


Figure  2  -  Cluster  .\rchitecture 


2.  Real-Time  Cluster  Star  (RTC  ’) 

Figure  3  illu.strates  the  RTC*  architecture.  It  consists  of  two  clu.sters 
connected  by  the  Ethernet  L.\N.  The  Ethernet  L.\N/MULTIBUS  interface  is 


jTitprLAN  Nl^njn  f^ommunication‘i  r,,iif,r  Board  (ECCB).  This 

j^r-AjiJes  pach  cluster  with  Its  connection  to  the  n«iwi»rk.  Further  information  on 
operating  characteristics  ot  the  Ethernet  LAN  and  RTC  *  use  of  the  Ethernet 
LAN  is  available  in  [2,10]. 


B.  THE  OPERATING  SYSTEM  ENVIRONMENT 

MCORTEX.  the  operating  system,  is  a  distributed  multicomputer  real-time 
executive.  It  allows  for  asynchronous  operation  of  processes  resident  on  SBC's  in 
the  same  cluster  and  in  separate  clusters  which  are  linked  via  the  Ethernc-t  L.\.\. 
System  synchronization  of  computations  in  various  distributed  processes  is 
accomplished  using  the  synchronization  model  of  Reed  and  Kanodia  [llj.  This 
section  describes  the  MCORTEX  svstem  distribution  of  control  variables,  known 


as  eventcounts  and  sequencers.  The  modifications  to  the  operating  system, 
necessary  to  distribute  user  data  throughout  the  system,  are  also  discussed  in  this 
section. 


1.  The  Synchronization  Model 

The  MCORTEX  operating  system  is  based  upon  a  synchronization  model 
which  is  event  oriented.  Processes  coordinate  various  activities  by  signaling  and 
observing  events  using  synchronization  variables  known  as  eventcounts  and 
sequencers.  .4n  eventcount  is  a  variable  created  by  the  user  to  signal  the 
occurrence  of  an  associated  event.  Eventcounts  are  initialized  with  the  value 
zero  and  incremented  by  one  each  time  the  associated  event  occurs.  The 
mechanism  used  to  signal  this  occurrence  is  a  call  to  a  system  primitive,  the 
advance,  which  causes  the  eventcount  to  be  incremented  by  one.  A  call  to 
another  system  primitive,  the  await,  causes  a  process  to  wait  until  the 
designated  eventcount  has  reached  a  designated  threshold.  Once  the 
eventcount  value  is  equal  to  or  greater  than  the  threshold  value  the  process 
may  continue  its  execution.  Therefore,  processing  at  distributed  locations  may  be 
controlled  using  eventcounts  which  are  signaled  and  observed  with  the 
advance  and  the  await  primitives. 

A  sequencer  is  a  variable  provided  by  the  system  to  control  the 
allocation  of  a  system  shared  resource.  The  sequencer  is  a  positive  integer 
number  generator  which  starts  with  zero.  It  increments  by  one  after  providing 
its  current  value  to  any  process  which  requests  its  associated  shared  resource. 
The  ticket  operation  is  the  mechanism  used  to  obtain  a  number  from  the 
sequencer.  The  number  obtained  is  used  as  a  threshold  value  in  the  await  call 
to  a  system  eventcount  which  is  also  associated  with  the  shared  resource.  .A.s 
users  of  the  shared  resource  relinquish  it.  they  increment  the  associated 
eventcount  with  the  advance.  This  allows  the  user  with  the  ticket  value 
which  matches  the  eventcount  to  gain  access.  .\n  example  of  a  shared  resource 
controlled  by  a  sequencer  is  the  Ethernet 


2.  Eventcount  Distribution 


The  kernel  of  MCORTEX  is  resident  on  each  SBC  and  schedules 
processes  for  execution.  A  process  runs  until  it  invokes  one  of  the  system 
primitives,  the  advance  or  the  await,  which  results  in  the  actions  described  in 
Section  B.l.  The  advance  of  an  eventcount,  which  is  used  only  within  one 
cluster,  causes  an  update  of  that  clusters  eventcount  value.  Processes  in  the 
same  cluster,  which  are  awaiting  the  eventcount,  may  then  continue  to  execute. 
Update  of  eventcounts  required  for  intercluster  synchronization  are  packetized 
for  transfer,  via  the  Ethernet  LAN,  to  the  other  cluster.  The  operating  system 
procedure  which  accomplishes  the  transfer  is  located  on  SBC  1  of  each  cluster 
and  is  referred  to  in  this  thesis  as  the  driver.  The  driver  is  the  system  software 
modified  to  allow  for  user  data  transfer  between  clusters. 

3.  Data  Distribution 

Data  which  must  be  shared  between  processes  of  the  same  cluster  is 
made  accessible  through  the  use  of  pointers  to  access  the  local  cluster  shared 
memory  locations.  In  the  RTC’  system,  buffering  of  data  must  be  done  explicitly 
by  user  processes  since  no  means  of  dynamic  allocation  presently  exists.  In  this 
thesis,  the  real-time  application  requires  the  immediate  use  of  the  data  generated, 
which  precludes  the  need  for  buffering.  Static  storage  locations,  which  are 
overwritten,  are  used  for  transfer  of  data  throughout  the  system. 

Data  transfer  from  one  cluster  to  another  is  accomplished  by  first 
establishing  an  absolute  address  in  the  local  cluster  shared  memory  to  receive 
the  data  to  be  transferred.  A  pointer  is  used  to  access  the  absolute  address  in 
shared  memory  and  the  data  value  based  at  the  pointer  is  updated.  The  sy'^tein 
driver  is  then  notified  that  a  data  value  is  ready  for  transfer.  The  Ethernet 
L.\.N  sequencer  provides  the  ticket  to  the  user  process  for  this  data  transfer. 
Once  the  ticket  for  this  data  value  matches  the  eventcount  associated  with  the 
Ethernet  L.\N.  the  data  value  is  transferred  to  the  driver's  transmit  data  block  in 
the  appropriate  data  field  in  local  cluster  shared  memory.  The  driver  then  causes 
the  neccssaiy-  calls  to  system  subroutines  to  allow  packetization  and  transfer  over 
the  Ethernet. 
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At  the  receiving  end  the  message  is  processed  by  the  local  ECCB  and  the 
data  is  placed  in  the  receive  data  block.  The  driver  then  stores  the  data  value  at 
the  absolute  address  designated  in  the  receiving  clusters  shared  memory. 
Another  pointer  is  then  used  in  the  receiving  process  to  access  the  absolute 
address  in  shared  memory.  The  data  value  based  at  the  pointer  is  then  available 
for  further  computations  in  this  cluster.  When  the  eventcount  associated  with 
this  data  transfer  is  updated  via  a  similar  procedure,  the  remaining  computations 
are  performed.  User  process  eventcounts  prevent  the  generation  of  additional 
data  until  the  remaining  computations  in  the  present  iteration  are  complete. 

Appendix  B  provides  an  explanation  of  the  steps  necessary  to  create  the 
system  driver  and  user  command  files.  The  driver  modifications  required  to 
transmit  and  receive  data  values  for  the  distributed  decision  algorithms  are 
shown  in  upper  case  lettering  in  the  system  procedure  SYSDEV.PLI  in  .\ppendix 
C.  User  defined  pointers  and  variable  basing  are  shown  and  described  further  in 
the  user  procedures  P.\2,  P.\3,  PB2,  and  PBS  in  .\ppendix  D. 

C.  ALGORITHM  IMPLEMENTATION 

Each  cluster  can  be  viewed  as  representing  the  set  of  local  processors  of  a 
particular  sensor  which  obtains  large  %'olumes  of  raw  observation  data  from  a 
target  for  initial  processing.  Decision  rule  parameters  and  raw  observation  data 
are  read  from  local  disk  storage  to  the  processes  of  two  SBC’s  in  a  cluster.  Two 
identical  data  sets  are  processed  in  parallel  to  generate  a  different  reduced 
statistic  in  each  processor.  One  statistic  is  to  be  used  locally  (at  the  same  sensor) 
in  further  computation  while  the  other  is  to  be  sent  to  the  remote  sensor  for  use 
in  further  computations.  The  local  sensor  then  receives  a  reduced  statistic  from 
the  remote  sensor  to  combine  with  its  locally  retained  statistic.  The  final  result 
of  the  combined  statistics  is  then  compared  to  a  decision  threshold  and  the 
decision  is  displayed  at  a  local  sensor  terminal. 

1.  Process  Distributivity /Parallel  Processing 

The  implementation  of  the  decision  rule  described  by  (1)  is  accomplished 
with  the  following  organization.  The  sensors  associated  with  the  two  system 
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clusters,  zis  well  as  the  clusters  themselves,  are  referred  to  as  SENSOR  A  and 
SENSOR  B.  As  illustrated  in  Figure  4,  each  sensor  uses  two  processes  labeled 
PA2(PB2)  and  PA3(PB3).  Process  computations  take  place  in  time  order  from 
left  to  right  and  computations  shown  above/below  one  another  are  performed  in 
parallel. 

SENSOR  A 

PA2:  Compute  (Xq)  Compute  A4(Xo)  +  A3(Yo) 

PAS:  Compute  (Xq) 

SENSOR  B 
PBS:  Compute  A ^  (Yq) 

PB2:  Compute  Ag(Yo)  Compute  Ag(Yo)  +  A^  (Xg) 

Figure  4  -  Computations  of  Reduced  Statistics 

Processes  PA2(PB2)  and  PA3(PB3)  are  resident  on  SBC  2  and  SBC  3. 
respectively,  at  each  sensor.  Computations  are  performed  as  shown,  with  '.ae 
primed  statistics  exchanged  between  sensors  to  allow  further  computations  in 
processes  PA2  and  PB2.  The  detailed  computations  discussed  in  Chapter  II  are 
shown  in  user  processes  PA2,  P.\3,  PB2,  and  PB3  of  Appendix  D. 

2.  Process  Synchronization 

Synchronization  of  events  during  the  decision  rule  computations  is  crucial 
for  accurate  and  meaningful  results.  As  illustrated  in  Figure  5,  the  careful 
synchronization  of  time  critical  events  is  coordinated  w’ith  the  use  of  two 
distributed  eventcounts  at  each  sensor.  The  AlEVC  eventcount  of  Sensor  A  is 
advanced  to  signal  the  availability  of  the  statistic  A  ^  (xg)  for  use  in  PB2  of 
Sensor  B  and  the  BlEVC  eventcount  of  Sensor  B  signals  PA2  of  Sensor  A  that 
Ag(yo)  is  available.  The  A2EVC  and  B2EVC  eventcounts  control  the  timing  of 
the  next  input  operation  at  both  sensors  to  ensure  correct  correspondence  of  the 


eventcount  is  advanced  causing  a  system  request  for  a  ticket  value  from  the  same 
sequencer.  This  places  the  eventcount  transfer  request,  which  will  signal  the 
availability  of  data,  behind  the  data  transfer  request  in  the  same  ERB  queue. 
Therefore,  when  the  eventcount  is  finally  updated  at  the  remote  sensor  the 
statistic  required  will  be  in  place  and  available. 

In  the  final  stage  of  computation  the  reduced  statistic  retained  locally 
and  the  statistic  received  from  the  remote  sensor  are  added  in  processes  PA2  and 
PB2  of  each  sensor  and  compared  to  a  threshold  (see  Figure  2).  The  reduced 
statistics  (xq)  and  ^siyo)  added  and  compared  to  the  threshold  at  sensor 
A.  Similarly,  Xg  (yo)  and  A^  (xq)  are  added  and  compared  to  the  threshold  at 
Sensor  B.  Results  of  the  threshold  decision  are  tabulated  on  the  local  consoles  of 
each  sensor  and  the  loop  begins  again  with  the  next  observation  vector  read  from 
disk.  The  processing  of  input  observation  vectors  continues,  simulating  real-time 
operation  until  the  vector  files  are  depleted. 

D.  RESULTS  OF  THE  SIMUL.\TION 

In  the  development  and  use  of  the  test  environment  it  was  verified  that  it  is 
important  to  distribute  computation  among  processors  to  better  utilize  the 
available  computational  ability  and  minimize  interprocess  communication. 
Processes  at  each  sensor  were  broken  up  and  distributed  among  the  available 
processors  to  gain  increased  computational  advantages.  Since  processes  at  remote 
sensors  had  to  be  carefully  synchronized,  specific  semaphore-like  mechanisms 
were  made  available  to  provide  this  synchronization  over  the  network.  The 
specific  mechanisms  used  in  this  implementation  are  the  await  and  the 
advance.  Correct  operation  of  these  synchronization  mechanisms  over  the 
network  depends  on  the  prompt  and  orderly  communication  of  protected 
variables  used  by  the  synchronization  mechanisms.  This  orderly  communication 
is  achieved  by  the  ticket  operation.  Successful  implementation  of  a  distributed 
decision  algorithm  requires  the  availability  of  all  of  these  control  mechanisms. 


IV.  CONCLUSIONS 


The  process  of  distributed  decision  making  by  two  cooperating  sensors 
observing  a  common  phenomenon  was  introduced  in  this  thesis.  Decisions  reached 
in  this  cooperative  way  produce  more  reliable  results  than  those  of  sensors  acting 
alone.  Such  decision  procedures  are  characterized  by  the  need  to  perform  local 
computations  at  each  sensor  and  to  communicate  partial  results  to  the  other 
sensor.  Although  several  types  of  algorithms  were  cited  to  accomplish  the  desired 
distributed  decision  procedures,  all  have  similar  computation,  communication, 
and  process  synchronization  requirements. 

A  particular  distributed  decision  algorithm  based  on  the  generalized  likelihood 
ratio  test  was  implemented  to  explore  the  computation,  communication,  and 
synchronization  problems.  The  implementation  was  accomplished  on  a  tw'o  node 
network  connected  via  an  Ethernet  local  area  network.  Each  node  of  the  network 
contained  the  required  number  of  identical  microprocessors  sharing  a  common 
bus,  shared  memory,  and  network  interfacing. 

Problems  of  intercluster  as  well  as  intracluster  synchronization  of  events 
between  processes  to  ensure  the  timely  input  of  observation  data  and  the 
coordinated  computation  using  the  shared  data  from  the  opposite  cluster  were 
tested  and  resolved.  Initial  results  using  the  generalized  likelihood  ratio  test 
algorithm  demonstrated  the  feasibility  of  performing  the  computations  involved 
in  the  distributed  decision  algorithms  in  a  realistic  environment.  The 
requirement  for  carefully  designed,  network-w’ide  process  control  mechanisms  was 
also  found  to  be  essential.  The  specific  procedures  used  were  discussed  in  the 
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Quadratic  Classifiers 

Specific  formulzis  for  the  quadratic  classifiers,  (xq)'  (*o)'  (yo)' 

A  g  (yg)  described  in  Chapter  II  are  provided  in  this  appendix.  Each  quadratic 
classifier  was  derived  similar  to  A^  (xq),  in  Chapter  II,  Section  B.  The 
coefficients,  A,  ,  c,  A  ,  ',  and  c  ,  the  necessary  expanding  equations  for 

variables  and  and  the  estimates,  y,  and  x, ,  are 

given  as  functions  of  the  known  terms,  Kj*),  Kj|'\  and  Bjj). 

The  coefficients  computed  for 

A^  (xq)  =  x^A  X  +  b^x  +  c 
are 
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The  coefficients  computed  for 


'^fl(yo)  =  y^  A  y  +  'y  +  r 


K,(V.  -  K,<'l  -  BjO 

=  Kfl-  bW>-|KW|-'BI=) 

=  n.(=l  +  Bl»»'|Kl')l*M>‘-n.i«l 

X, 

X;  =  mj’>  +  Bj'l  [y  - 


APPENDIX  B 
LINK86  Input  Option  Files 


When  linking  files  to  create  a  command  file  for  use  on  each  SBC,  the 
following  command  is  invoked  with  the  appropriate  user  filename;  LINK86 
filename  [I].  The  "I”  in  square  brackets  invokes  the  input  file  option  which  directs 
LINK86  to  obtain  further  command  line  input  from  the  designated  input  file.  As 
an  example,  the  modules  listed  in  CA.INP  are  linked  with  the  command:  LINK86 
CA[I],  where  the  "I"  indicates  that  CA.INP  contains  the  names  of  the  files  to  be 
linked.  The  name  preceding  the  equal  sign  is  the  filename  assigned  to  the 
command  file.  LINK86  CA[I]  produces  the  command  file  CA.CMD,  which  is  the 
system  driver  for  Sensor  A  (cluster  A).  All  files  listed  in  the  input  file  must  be  on 
the  logon  disk  and  must  be  of  type  object  (  obj).  Object  files  are  generated  by 
compiling  files  of  type  PLI  (.pli)  or  A8&  (.a86).  The  above  steps  also  apply  for 
linking  the  system  driver  files  for  Sensor  B  as  well  as  the  user  files,  processes 
PA2,  P.\3,  PB2.  and  PBS,  to  create  the  respective  conunand  files  CB.CMD, 
NUM12.CMD.  NUM13.CMD.  NUM22.CMD.  and  NUM23.CMD. 


>;:##«  J)*  ##  3:5 « a;;  *>,•«««  >:s  #  >)e  >:«  aje  «*>:«####  5(t  >!«*«#<■*  i{t  *  <5  >4t  >!«  #>!<####  s>  s>  >!<*«**«#’!'’!'*>!«  »?# 

»#  CA.INP  input  option  file 

)!e#>)ts)t^jts!t3)^«J)^#5l:♦si(#«J^^sjt>!e#«3)e«J(:a^(:^t♦#!^^*<::^eJ{t4t♦#♦^^t#«l^t#ljt♦*^)ES(c♦Jjt>)c♦#J0c*#4eJ{c^C^#:^ts}! 

3;c  *  jjt  >!:  jjs «  St!  J{;  =;■  s’;  a::#  s;s /'!(:»:.•>;«  5;s  :(«#>;«  >jc>;«  *  i{!  si:  Xs «  X5  #  <t  ❖  a)!  <5  St'#  >ts  !(«#**>!=*>('*’!'***  :r  * 

CA  = 

SY3INITA  [C0DE[AB[439]] .DATA [A3[800l , M  [0] , AD  [821 ]  ,MAP[ALL11 , 
SfSDEV, 

ASI^ROUT. 

GATEMOD 

sj:  Xc  xt  Jr ;?  **>!««#>!'*  al;  **  ai«  Sr  al'**  a^  #  a;a  #  af"  a!* aia  “S' =!=#  a!*  ala  ******* ''‘*  a!*  ***=?* ’i* 

X:  sic  sje  Xta’^  ajc  a;:  a^  Xe  s;:  Xc  sOt  X:  X:  X:  X«  a;:  X;***  a;;*****  *******************************  aia* 

**  NUV12.INP  input  option  file 

s;tX:s!t-.’,s*X;3::**s}!  X;*s!s5!;X:*::s:;:s?X:*  X:****:*::!::}!:;:  sj: :?*:!: s)t**X;************a;:*s;:**:i:**:;::;: 
***X;X:*******X«***ilt*  ************  ************X«*  ******  ********** 

S3C2INIT  [CrBE[A3[439]]  .DATA  [A3 [300] ,M[0]  ,AD[92]]  .MAP [ALL]] . 
PA2  . 

GAT EMC D 

s'^X;*******aS*****a;:X;X<***  V**a'.:*****X^* *************;;:* ***a;;Xc*X!* ••:;**  s',:* 
s;:X«X«*s):s,t*sX**s;:*s:sX<3i:#***X<*s;s******a;s*s;t****Xsalt***s;s***a;t**sltXs*s;c*Xs******* 

*a:a  NUM13.IM?  input  option  file 

s;:  x<  si;  *  s’^ sis  *  sis  *  sl<  X:  si:  X;  *  si:  si:  si:  sis  :i«  -*  si:  if-  si:  if  *  *  *  *  si:  sit  sit  *  sj  * s’.:  *  *  si:  *  Xs  *  *  *  if  if  X:  X:  X:  if  Xs  sX  X'-  si:  X:  si:  X:  :1s 
X:  x:  X:  *  X:  X:  *  *  X'.  *  X:  *  X'-  X:  si:  *  X:  *  X<  X:  X:  X:  a;<  s;<  Xt  X:  X:  *  X:  X:  X:  *  X:  X:  si:  *  *  X:  *  *  X:  X:  >1:  Xt  X:  X<  *  X:  *  X:  *  *  *  *  X:  *  *  *  *  * 


NiL’M13  = 

SPCSIMIT  [CCDE[A3[439]]  .DATA  [A3[300]  .M[0]  .AD[32]]  .MA.?[ALL]  j  , 


?A3  . 


GATEMOD 


)ti««i(E«>;:  id*  ije  :(:««<(  i;c3ic>;:<ciili<c«»i>9c«3tt9C‘>i<  9(1  lie 

**  CB.IN?  Input  option  file  ** 

9{(  9;c  9^  >it  :;c  :4e  Itc  sjt  9^9  )ti  9tc  9Sc  9i(  X:  s^c  sjc  9)1  :;e  3{C  s^c  :(1 9!cigi  s^c  s;:  9^  9ic  9ic  iCt  4i ^  9ic  sit  i(e  i«t  >ic  :(c  :4c  9;^  s^c  9{C « sjc  :(c  #  ige  4c  # 9;c « 9)C  :(c  #  ](C :;( 9;c  9^1 
»;9  9;«l{:9;t9(C9ie9;C9!c:!t9!!X-.X;9(!9{tXsXtX!9(C9!eXS9!l  9;t9tt9iC)t:9i:9(C9l!C9(C9iC9iC9ft9te9Se4c9iC9{CXC9!C9CC9;e9te9;C9)l:;(>il9;e9ie9S:9;C9iC9i(9iC94:9ie9):9!c9;C9iC9iC 


CB  = 

SYSINITB  [C0D5[AB[439l]  ,  DATA  [AB[8?0l  ,M[el  ,  AD  [82]  ]  ..MAP  [ALL]  ]  . 
SYSDEV, 

ASMROUT, 

GATEMOD 


4t9jt4t4e9{:«9ie94eXe9|:9(t4e9!s9{c9(;jiss;e9{e94c:(e4e9(e90t94c9CC9(t94t94e4t9jt9jt*4sH9Xt4e:t£9(c9{c:(e9je9je9i«90t](e9{e9jesSe94:9{:9St9jt9je94e9ie#9!sX:9j!9{t 
X.9l9#9;;9(sXc9{ss;s9!;s!eX:Xs9;;9it9!c9le9!s9{e](e9!;94e  X;Xs9{tXc9(t9(t9)e9(e9{c9C£:(e9)t4‘3t=J(t!;'5;  sjcsjesJtXcsioicsJsctcc^tXcXcstcjieXcsissIcsJc.icXcXcsicsie 

*JDM22.IM?  input  option  file 

9!e  9ic  Xt  Xe  9)1  Xt  Xc  xe  9):  9)e  sjc  9!c  *  X;  9)e  9)9  >>  i)e  sje  9?  9):  X- « 9)!  s>  9!t  s)e  9)9  9Cc  s)t  s)c  9)9  >)t  9je  9ic  9jt  sje  9);  9)e  9(9  xc  9(1 9{e  9j:  9)9  9(9  9jC  X:  XC  xt  sjc  sic  9(9  9(S  sit  Xc  9(c  9?  9)9  sje 
sicXcjJt-X^sitslcXisitXtsiiXcXtX'X^X-cicXcXccttJioic  X-Xc9f’X9X9  9j9  9i9X9XtXt!0cXcXcX:s!c9):XtXtX9X9s):Xc94t9ieXc9i:9lcXtXe9icXcX9Xt9S9icX:t;c9!tXt 

\L'M22- 

SrC2INIT  [CCDE[AEr439ll . DATA [AB [803] ,M[3] ,AD[a2]]  ,MAP[ALLl] , 
PB2  . 

GATEMOD 


9(9  X:  Xc  sit  X:  Xt  xc  Xc  X:  9(1 9)9  X:  X:  94:  xc  X9  Xc  #  9i<  9!9  Xt  Xt  Xc  Xc  X9  xc  Xc  Xc  sjc  X:  9ic  9j9  xc  Xt  9)9  Xc  X9  X:  9(9  X<  9ic  X:  Xc  X:  X9  9)9  X9  Xt  Xc  X>  Xs  X:  X:  X:  Xc  Xt  Xc  Xt  sic  94: 
X!SXX9XtX'X9X9X:!)9XsX  sit  X!  X9 1?  Xt  Xc  ;;X9X.'X'X9XtX:9!s9!':)tX«XtX9X<X9  9!9X9X9X9-i9Xt9!9XtXsXtXt9i9  9itsisX9X9X9Xts!cX9X9s)cXtX9  9!tXeX9Xt 

^UM23.I,MP  input  option  file  ** 

X  X' 9!9  Xt  Xc  SX  Xt  X9  xt  Xc  sit  Xc  X9  X9  X9  X9  x:  Xt  X9  Xt  Xt  Xl  Xt  X9  Xt  X9  X:  X9  X9  X9  9ic  X9  X9  X9  X9  X9  XI  Xt  Xc  X9  sic  Xc  X9  X9  Xi  X9  X9  X9  xt  X:  x:  Xt  xt  X9  X9  9^  X9  Xt  X:  X9 
Xt  X9  Xt  X9  t'  sit  Xt  Xt  Xt  Xt  X  ■  Xt  X'  X'  X:  X'  -.'t  >it  Xt  X:  Xt  sit  9l;  si-  9)9  Xt  Xt  Xt  Xt  Xt  SitXt  X<  Xt  >It  Xt  Xt  Xt  Xt  Xt  »i5  X9  Xt  Xt  Xt  9)9  X9  9)9  sic  X:  9)9  9)9  9)9  Xt  9)9  SS  Xt  9)9  9^  9)9 


M’M23- 

SrC3INIT  [CODEfAE  [439]]  .  DATA  [AB[833]  ,Mf,-3]  ,AD[o2]]  ,MA?[iLL]]  , 
?33 

GATEMOD 


APPENDIX  C 

D  evice  Driver  and  Packet  Processor 
Source  Code 


This  code  consists  of  PL/I-86  and  8086  assembly  language  modules.  When 
linked  as  described  in  Appendix  A  and  loaded  in  local  memory  of  SBC  f  1  of  each 
cluster,  the  driver  handles  the  systemwide  distribution  of  user  data  and 
eventcounts  via  the  local  area  network. 

Initialization  modules  (SYSINITA  &  SYSINITB),  each  for  their  own  cluster, 
define  cluster  addresses,  create  user  eventcounts,  establish  eventcount 
distribution,  and  create  the  procedure  space,  under  operating  system  control,  for 
the  driver.  SYSDEV.  The  system  definitions  file,  SYSDEF  and  the  file 
NI3010.DCL  are  required  when  compiling  SYSDEV.  .\ny  user  eventcounts. 
sequencers,  or  shared  variable  pointers  which  are  defined  in  SYSDEF  must  be 
updated  when  these  items  change  with  new  synchronization  and  control  schemes. 

SYSINITA  and  SYSINITB  must  also  be  updated  whenever  changes  are  made 
to  user  eventcounts  or  their  distribution.  Recompilation  and  relinking  are  also 
necessary  to  produce  the  updated  command  files  CA.CMD  and  CB.CMD. 


<t  i(ci(t  <t  «#){:#«  H:  *#  ){t>)t#  ijt  **♦*#♦  sjt  >ji  i{c  :(i  #>}!  ijt  #  Kt  3j!  j;t  sjt  j)t  *  Jit  #  :je  sje  5,;  ^  #  >)c  # 

$3tt  jitj;: 

CLdSTEF  A  initialization  MODULE  SYSINITA.PLI  ’«'# 

♦  sit 

4c:!cjiiJicjicj{c:ic;;c);t4i:!t4cJic3icji::jc:;tj;t4e3St)9c  j;t  Jit  !$;:(:  9(c  Jit  j(cj}!  lie  Jic^jiei(c:tc:jt  Jit  j;t:{e](e]{cj!t  Jit  Jicjjc  Jit  Jitj^.Jtcj'c  j;tj;cy,;>;i  Jit  :(t 

i(e  i{c  Jit  !(t  Kt  jjt « Jit  j;e  lie  Jit  jje  jje  lie  j;t « lie  j^  « jgi  lie  Jit  i(e  jje  lit  Jit  lie  i(t  jge  lie  lOe^  lie  Kt  Jit  4c  ijt  Jit  jjt  jjc  lie  Kt  jjt  Jit  j;t  jje  j;t  Kt  Jit  lie  Jje  Jit  j;t  j;:  lie  Jie  jge  Jit  jji  jje 

SYSINITA:  proc  options  (main); 

%lnclude  'sysdef .pli 
^replace 

EVC_TYPE  by  '00 'b4; 

main  */ 

call  ief lne_cluster  ('0301''b4);  /*  must  be  called 

prior  to  creatine 
eve's  '  / 

/Iiij!e4ei!t  ySER 

CALL  CREATE_EVC  (AIF.VC): 

CALL  C?EATE_'PVC  (A2EVC); 

CALL  CRFATE.FVC  (ElEVC); 

/jitjit^e  SYSTEM  -S’-V 


call  creale_evr  '?P.B_FEAD); 

call  create_evc  (ERE'wrITF); 

call  create_sea  (F'’.E~W'HITE_REOUEST ) ; 

/’'■'  distrib.  -^ao  called  after  eventcoents  nave 
teen  create!  / 

/*  local  an!  remote  cep/  of  AIEVC  needed  */ 

call  di5tribution_man  'FVC_TT?F,  AIFVC,  '300^ 'PD; 

call  creat»_?rnc  ('fc'b4,  '80'b4, 

'0n41'b4,  "^?00'b4,  '0053'b4, 
'0439'b4,  'v3500't4,  '3a03'b4); 

call  await  ('fe'b4.  'Cl'b4); 


END  SYSIMTA.  ; 


i4t#4c4c)tE)jeiO[:jcs)c«9^aiC3^>)c3i;9jc#Xc#:((>i:a;:9Na!t9{t:ic3(cait:(ca^a;:<c^:^>:c;(c;^9':jC:#3^9:ca;:itca!e4E:;:i;::{:s;::;<a;c>;::{:3:::(t<;:(:3;e# 

««  ais« 

CLUSTER  5  INITIALIZATION  MODULE  STSINITE.PLI  ** 

#sl: 

#  :tc  ^icCe  Jti  #  ))c  j^c  #  aj:  #  It:  It:  3tt  X:  #  aj:  aj:  aX  at:  K:  at:  a;^  X:  it:  aj:  at:  at: « ajc  a;:  at:  ><>  ai:  :fc  >;««  a^  aX  ay 

atcatcaisXaaXaitaXatcayaisXaaXayXaayayayayay  X:X:  X>ay:yX:X:ai:a;c:yX:X:a!::t::i:aicX:X:X:X:a!cX:X:ayai:>yaya|:>;cay3t:aica,':aicX:s;::;ca;:iJ(a,'(i;: 

SYSINITB:  proc  options  (rrain); 

%include  'sysdef  .pi i 
^replace 

EVC_TYPi  by  '00 'b4; 

nain  •■'/ 

call  def i ne_cl’iste r  ('0002'b4);  /*  rnist  be  called 

prior  to  creatir.2 
eve's  "/ 

/itaa^sltic:  USER  at'-V  #:!•-/ 

CALL  CHEATE.EVC  (AIFVC); 

CALL  CREATE_EVC  ,B1EVC); 

CALL  CREATT_EVC  (32PVC); 

/xaacay  SYSTEM 

call  creat9_“vc  •t3_READ)  i 
call  create~9vr  (SR3_’a'LITE}; 

call  rreate_seu  ' ^RP_WRITr _REQUES T ) ; 

/*  d  i  St  r  i  b  .  map  called  after  eve  r.  tccun  t  s  have 
been  created  */ 

/*  local  and  remote  cooy  of  BIEVC  needed  */ 

call  distrlbution_map  (EVC_TY?r.  BIEVC,  '0273 'E4); 

call  create_proc  ('fc'D4,  '30'b4, 

'794l'b4,  '0870'b4,  '0053'b4, 

'0439'b4,  '0p00'b4,  '0P00'b4); 

call  a’rfait  'fe'b4,  '01 'b4); 


END  sysinitb; 


i 


* 


.  y 
// 

i 

►  . 

s  . 

.  ,■ 
w'  ^ 


‘r.7-T' 


■3*'V 


/**  FILE  STSDEF.PLI  MARK  A.  SCHCN  24  JUL  35 
/««======================================================>:=’!=/ 

/##  This  section  of  code  is  ffiven  as  a  PLI  file  to  he  '*'^1 
/**  %INCLUDE'd  with  SYSDEV.PLI.  ENTRY  declarations  are  "*/ 
/*#  Tade  for  all  available  MCOBTEX  functions. 


DECLARE 

advance  ^NTRY  (PIT  (8)), 

/*  advance  (e vent_count_ii )  */ 

await  ENTRY  (PIT  (8),  BIT  (16)). 

/*  await  (event_rount_id ,  awai ted_value )  */ 

create_evc  ENTRY  (PIT  (8)), 

/*  create__evc  ( even t_count_id  )  ’■=/ 

create_proc  ENTRY  (BIT  (?),  BIT 

BIT  (16).  BIT  (16),  BIT  (16), 

BIT  (16),  BIT  .'16),  BIT  (16)'), 

/‘‘■‘  create_proc  ( proces  so  r_id  ,  proce5Sor_pri  nrity, 

/’!'  stack_pointer_hiehest ,  stack_5et:,  iy  ’'•'/ 

/*  code_seg,  iata_see,  extr'a_ses)  ’>'/ 

create_sea  ENTRY  (BIT  (8)), 

/*  create_seo  ( seou3nre_id )  ’S'/ 

preempt  ENT-Y  (BIT  (8)), 

/’*'  preempt  (processor_id  )  •’/ 

read  ENTRY  (BIT  (6))  RETURNS  (BIT  '16)), 

/*  read  (  even  t_count_id )  ’"/ 

RETURNS  cu  rrer.  t_event_coun  t  ' 

ticket  ENTRY  'FIT  (3))  RETURNS  "siT  (15)), 
ticket  ( sequence_id  )  "'•/ 

/*  RETURNS  ur.  i  a  ue_t  icket_val  ue  ’•' / 

def ine_cluster  ENT-Y  (bit  '16)), 

/’*'  def  ine_cluster  ( local_clu5ter_adl  ress  )  *  ^ 

li5tribution_map  ^'NTRY  'hit  (8),  bit  (8),  hit  '16'), 

/*  distribution_map  (  d  i  s  t  ri  bu  t  ion_ty  pe .  id,  clus  ter_add  r  )  ='■'/ 

addZtitie  ’^NTRY  i'FIT(16),  1=IT(16))  RETURNS  i  R  T  T  (16)); 
/*  add2bitl6  '  a_ieolt_i#.  ar  other_16hi  t_«  )  f 
/*  RETURNS  a  16bit  ;i  -  anothe-  Icbit  <f  =^/ 


39 


■■l..  »■  V.  1  -  • 


^replace 


EVC$ID's 

(1)  USER 

AIEVC 

BY  '01 

'B4 

A2EVC 

BY  '02' 

'B4 

BIEVC 

BY 

'03'B4, 

B2EVC 

BY  '04 ‘ 

'B4 

/ 

*  (2)  SYSTEM 

ERB 

READ 

by 

'fc'b4. 

ERB 

"WRITE 

by 

'fd  'b4. 

SEOUri^CEE  N,«MES  *** 

(1)  USER 

USE=>  PROCESSES  USE  EP.B_k'RITS_REOUEST  OV17 
(2)  SYSTEt^  */ 

ER3  WRITS  REQUEST  by 


SHARED  variable  POINTERS 
il)  USER 

P3  BY  'eCC?'34 

PC  BY  'eDD0'B4, 

/■■  [2)  SYSTSr"  */ 

block_ptr_vali:e  by  '8("C0'b4, 

X7)it_ptr_value  by  ''S0Ce''b4, 

rcv_ptr_val  le  by  '’3666'b4, 

END  RESERVE  by  'FEE?'b4; 


){;  9i:;jc««««3!c««3S:4E:«c3!e  Jie  4! 

)(c4c 

«*  N 13010. DCL  FILE  ** 

*♦  «# 

##  ije  #  i{c  :(c  J(c  #  :!c  ##  >!t  sit  #  4  :{c  <t  s)t  >;!  jjt  j)(  #  jjt « >it  ^  jjt  :jt  s{c>)t  #*  jjt  :)e  *  ###  sit  :)<  sis  *#:;:  sje  sit -.;:»:£  !;s  =11 5:c 


%replace 


I/O  port  aidresses 


These  values  are  specific  to  the  use  of  the  I'JTERLAi'l 
NI3010  r^ULTIBOS  to  ETEFENET  interface  board.  Ary  change 
to  the  I/O  port  address  of  '00'b0'  hex  (done  so  with  a  LIP 
switch)  will  require  a  change  to  these  addresses  to  reflect 
that  change.  */ 


cornmand_regi  ster 
coPimanl_status_register 
t ransmi t_data_regts  ter 
int errupt_status_r8« 
interrupt_enable_register 
high_byte_coun t_reg 
1 ow_by te_count_reg 

/“**  end  of  I/O  port  addresses  '''/ 

/’*'  InterruDt  enable  status  regi 


by  ‘'b0'b4, 
by  'tl'b4, 
by  'b2'b4. 
by  'b5^b4, 
by  'b3'b4. 
by  'b'"''b4, 
by  'bd'b4. 


Interrupt  enable  status  register  values 
disablo_nl301?_interrupts  by  ''^0'b4, 

ni3013_rr.trpts_ll5abled  by  '^0'b4, 

receive_bloc’<_available  by  '34'b4, 

transniit_dma_done  by  'r’6'b4, 

ref'eive_dn?a_dore  by  '^T'bA, 

end  register  values  */ 

Command  Function  Codes  */ 


module  interface  loopback 

by  '31 't4, 

intern3l_loopback 

by  '"2'b4, 

''l9ar__loonback 

by  '03'b4, 

go_of f 1 ine 

by 

'38 't4, 

go_nnline 

by 

'r9'b4. 

onboard  diagnostic 

by  '3a'bl, 

clr_iasert_source 

by 

'3e  b4. 

load_transmit_data 

by 

'28 'b4, 

load_and_send 

by 

'23'b4, 

load_grou  p_ad  d  res  ses 

by 

'2d  'b4. 

reset 

by 

'3f 'b4; 

/*  end  Command  Function 

Cod  es 

«/ 

;{c9!i:(c:{C)eea!c)gc9)(:!c3!c3;:A:{e9gc9^:{c:tc:;$:^:{c:^>^itt:{e:tc)(i:0‘’t(4!>!<>!<9(c<e)te>tt)(t<t:;:<e:(ciic#:tc:{t^«:;e:tC3ic#:{c::e9:t:{;:;:3ic;;e:^^':^c:;c 


## 

## 

## 

## 


CLUSTER  A 


-  ADDRESS.DAT  ?ILE  -  USED  BY  SYSDEV.PLI 

-  1ST  THREE  VALUES  USED  IN  SUBROUTINE 
progran  ^roup_addresses 

-  LAST  TWO  USED  IN  MAIN  PROGRAM  SYSDEV 
TO  IDENTIFY  THE  LOCAL  CLUSTER  ADDRESS 


:ic« 


sjes)! 


1. 


'3000000P)  'B,  '00000001  'b, 
'00000000  'b, '00000001  'b 


:(t3{:3tc>;siC<>i‘3t‘3!‘3S<>!:#9i‘  4c3)t)te  liciic  :(i it:  3ic  # 
ijc  si:  si;  It:  3(1  ](c  It: «  >;:  :i(  ijt  lit  3;:  s’: :{:  it:  ](:  i;:  If:  X<  ii<  li:  >!:  >!«  li:  i(<  It:  It:  4c  it:  it(  lie  $  3,'e  X:  >1:  i;:  3(:  >9:  It:  i(:  >!: )(:  If:  >t: >i:  It  >i:  :!<  i):  1.1 
4:# 

CLUSTER  B  -  ADDRESS.DAT  FILE  -  USED  BY  SYSDEV.PLI 

-  1ST  THREE  VALUES  USED  IN  SUBROUTINE 
prosram_^rcup_adlre5se5 

-  LAST  TWO  USED  IN  MAIN  PRCGRAM  SYSDEV 
TO  IDENTIFY  THE  LOCAL  CLUSTER  ADDRESS 


>;:  ff  sits;: 
if  S]t  s;:  s;c 


4:4: 

4:4: 

4:4= 
4s  4< 

4:4: 


...  •{» 


St  St: 

4:v 


s;:  4c  St:  4: 4: 4: 4«  Sit  3):  St:  4: 4:  St:  s;:  ](:  4: 4: 4: 4: 4: 4:  sit  4: 4:  sj:  4: 4: 4: 4: 4: 4: 4: 4: 4: 4: 4: 4: 4: 4: 3(:  4: 4: 4: 4: 4: 3(:  4: 4: 4:  sjt  Sji  4:  sx  4: 4:  *!: 
4t 4t  4: 4t 4: 4: 4: 4: 4c 4:4:4: 4:4:4:41 4: 4: 4: 4:4:  4: 4: 4c 4« 4: 4: 3^4:4: 4:4: 4: 4;  4:4: 4: 4: 4: si:  4: 4: 4:4: 4: 4: 4: 4: 4: 4<  4: 4: 4: 4: 4:  X: 


4:  lit  4:5;: 
sits;:  4: 4: 


1. 


'000e0000'b, '00000010 'b. 
'00000000  'b,  '00000010  'b 


SYSDEV:  PRCCEDURS; 


/* 


Date : 


24  JULY  1985 


Progratmer : 


MARK  *.  SC°ON 


fMODTFISD  CODS  FROM 
PREVIOUS  THESIS [2]) 


Module  Function:  To  serve  as  the  Ethernet  Conmunica t i on 
Controller  Board,  ECCP  .'NI3010)  device 
handler.  This  process  is  scheduled 
under  MCORTEX  and  consurr.es  Ethernet 
Requests  Packets  (FR?)  een^ratei  by 
the  SYSTEMAIC  located  in  LEVEL2.S"C  S 
by  U3EP  PROGRAMS. 

It  also  processes  any  inbound 
packets  by  aralyzin^  th-^  packet 
contents  and  niakin^  the  appropriate 


MCORTDX  calls. 


4:  , 


^replace 


t 


SVC  type 

by 

'5?0'b4, 

**-  • 

erb2block_len 

by 

20, 

k 

erb_block_len_tT!l 

by 

19, 

1 

infinity 

by 

32767; 

^include  'sysdef .pll '* 

DECLARE 

erb(0 :erb_block_len_ 

ml)  based  (block_ptr). 

■vV* 

'vV'V' 

2  command 

bit 

(8)  , 

2  type_name 

bit 

(a). 

C  - 

2  name_value 

bit 

(16)  , 

2  remote  addr 

bit 

(16). 

1  traasmit_data_tlof;k:  based  (xniit_ptr), 

2  destination  address  a 
bit  (3)  7 

2  destination  address  b 
bit  {a).~ 

2  destination  address  c 
bit  (8),‘ 

2  destination  address  d 
bit  (3) , 

2  destination  address  e 

bit  (8)  7 

2  destination  address  f 

bit  (S)  7 

2  source_adlress_a 
bit  (3)  . 

2  source_address_t 
bit  (3), 

2  source_aldress_r 
bit  (8). 

2  source_addres s_d 
bit  (8), 

2  source_addres5_e 
bit  (e)  , 

2  source_addres5_f 
bit  (6)  , 

2  type  field_d 
bit  (8)  , 

2  type_field  b 

bit  (3)7 

2  data  (4 )  bit  3) , 


2  USER_DATA  (12)  FLOAT, 

( TX_DATA_PTH ,IMIT_PTR )  POINTER , 

/*  HIGH  r'Er^OET  ADDRESSES  OF  TX_DATA  PTP  AND  XMIT_PT? 

/*  ASSIGNED  IN  SYSDEV 

DAT»_TO_SEND  FLOAT  BASED  ( TX_D  AT  i_P?r. ) 

1  receive_data_bl ocic  base!  'rcv_ptr), 


2 

f rame_status 

bit 

(3) 

2 

null  byte 

bit 

(?) 

2 

frame_lenftth_l5b 

bit 

■:s; 

2 

fra(ne_len^th_nsb 

bit 

( 8 ) 

2 

des tinati on_adirss5_ 

a 

bit 

:?) 

2 

destination_addres5~ 

b 

bit 

■8) 

2 

destinati on_add  ress_ 

c 

bit 

(8) 

2 

destination  address 

1 

bit 

'8) 

2 

destination_address~ 

e 

bit 

;?) 

2 

des  tinati 0 n  add  res s_ 

f 

tit 

(8) 

2 

source_aidress_a 

bit 

'P  ) 

2 

source_adlress_b 

bit 

;  r  ’) 

2 

source_adlress_'' 

bit 

(8) 

2 

source_address_i 

bit 

■  \ 

2 

source_addre5s7e 

bi  t 

'  =  ) 

2 

source  address  f 

bit 

(8) 

2 

type_field_a 

bit 

i  ^ 

.  ~  } 

2 

type_f leld_b 

tit 

■8) 

2 

datar4) 

bit 

(  =  ) 

2 

USER_DATA  '12) 

FLOAT, 

2 

crc_is  t 

bit 

(?) 

2 

crc  upper  middle  byt 

p 

bit 

(c) 

2 

crc  lower  middle  byte 

bit 

:  B ) 

2 

crc  Isc 

bit 

( t) 

(?X_DATA_?TR.?.CV_?T^  ,BLOCK_PT'  )  POINT? 

/*  HIGH  ADDRESSES  OF  RX_D AT A_PTR  , HC V_?TR  , ^ 

BLOCK_PTE  A:-F  ASSIGNED  IN  FILE  SYSEEF 

DATA_ARRIV^D  FLOAT  BAS  EL [ HX_D A T A _?TR ) 

index  fixed  bin  (15), 

(aldr_e,  addr_f)  bit  (r), 
address  file, 

copy_le_re^ister  bit  (=), 

'  c  lus  t  er  _addr ,  erb_wri  te_val 'le  ,  i  )  bit  '161. 

!  j,:<)  fixed  bin  ( 15)  , 
rep_value  bit  («)  , 
wri te_io_port  entry  (bit  bit 


read_io_port  entry  (tit  (S),  tit  (£)), 


inltiali2e_cpu_interrupts  entry, 
enatle_cpu~lnterrupts  entry, 
d isatle_cpu_interrupts  entry, 
write_tar  entry  (tit(16)); 

/*  end  module  listing  */ 


%replace 


codes  specific  to  the  Intel  8259a  Programmatle 

Interrupt  Controller  (PIC)  */ 


icwl_port_address 
icw2_port_adiress 
lcw4_po  rt_address 
ocw_por t_address 


by 

by  'c2't4, 
by  'c2't4, 
by  'c2't4. 


/'^  note:  icw  ==>  initialization  control  word 


ocw  ==>  operational  command  word 

icwl  by  '13't4, 

/*  sinsle  PIC  configuration,  edge  triggered  input 

icw2  by  '40 't4, 

/*•  most  significant  tits  of  vectoring  byte?  for  an 
interrupt  5, the  effective  address  will  ce 
(lcw2  *  interrupt  « )  "S'  4  which,  will  be 
(40  hex  *  5)  4  =114  hex 

icw4  by  '0f'b4, 

/='*  automatic  end  of  interrupt  and  buffered  mode 'master 

ocwl  by  '?f'c4; 


/*  unmask  interrupt  4  (bit  4),  'v' 

/*  interrupt  5  (tit  5),  and 

/*  interrunt  6  (tit  6),  mask  all  ethers 


/*  end  5259a  codes  */ 

include  constants  specific  to  the  \'I331C  board 

^include  'ni3010 .del 


/**“  Main  Body  */ 


call  wri te_io_port ( lnterrupt_enable_register  , 
'’disable_ni32ie”lnterrupts )  t 
call  initialize_pic ; 
call  initial! Z9_cpu_interruptsj 

call  read_io_port  ( commdnd_status_reel ster  ,re^_value  ) ; 
call  perform_commanl  (reset); 

call  proffram_^roup_addresses ; 

/*  asslcnnnents  to  t’^e  source  and  destiration  address 
fields  that  will  not  change  */ 

call  perforr'_commard  ( clr_insert_source )  i 
/*  NI3010  performance  is  enhanced  in  this  mode  */ 

/*  ASSIGN  POINTEi  VALUES,  PREVIOUSLY  DEFINED  -FILE  SY3DEE  -/ 
/*  TX  DATA_PTR  <--  PP  =  «CC0  A  FLOAT  BLOCK  OF  i-PYTSS  -/ 

/-  RX^DATA  PTR  PC  =  8DD0  A  FLOAT  BLOCK  OF  4-BYTES  / 

/«  "  «/ 

/’!'  BLOCK  PTR  <—  BLOCK  PTR_VALUE  =  8000  THE  ECE  120-3YT"S  -/ 

/*  RCV  PTR  <—  RCV  PTR  VALUE  =  8668  THE  RDB  6e-3YT"S  >■•'/ 

/#  XMif_PTR  <r—  XMlf_PT?_VALUE  =  30CS  THE  TDB  74-BYTES  */ 

/#](S  #4! 5/#!(s#s;« s!!s/#3i(s;«st!si[si<s;s3i!stcs^-si«3{s#3;*:{t sissies’/ I{tsjs<s3;::itsits/ s/s/ sits/ Ijssjul!  s/sic:/s/s/#s;t>/s!;:<t$;cs;:s/s;ss/  / 


uns?ec-:tx_data  ptr)  =  ?p; 

UNS?EC(rX_DATA2?TF.)  =  PC.* 
unspec (  Dloc'<_o tr  )  =  bloclc_ptr  value! 
unspec ( rcv_ptr )  =  rcv_ptr_vaTup ; 
unspec( rmit^ptr)  =  xmit_ptr_value; 

/’■•*  make  one  tine  assignments  to  transmit  data  clock 

transmlt_data_block  .de5tination_addrP5S__a  =  '03'b4; 
transmtt_lata_block  .destination_addre55”h  =  'CO'bi; 
trarsmit_iata_block.de5tlnation_addrP5  5_c  -  '’O0'b4; 
transmit_data_block  .destination_addrP5S  d  =  'C'r'b4; 
t ransmi t_da ta_block  .  source_aidre5S_a  -  '33'b4; 
transmit_data_blcck  .source_addrPS5_o  =  '30 'b4; 
transmi  t_data_’olock  .source_addre5S_c  =  '3?'b4; 
transmit_data_block  .source~adlre5S_d  -  '33 'b4; 

/*  get  the  local  cluster  address  -  file  was 
ocened  in  oroo  program_group_add res ses  */ 

get  file  ^address)  list  ’'addr  e,  addr_f1; 
transmi t_data_blork .sour^9_adIress_p  =  addr_e; 
tran smi t  data  bl ock  .s ouro9_add res s  f  =  allr  f; 


cluster  alir  =  addr  e  I  I  addr  ft 
put  skip  (2)  edit  CLOSTSe  ',cluster_adlr , 

'  Initialization  Complete  *♦*') 
(col(15)  ,a,M(4)  ,a); 

i  =  '0001'P4; 

call  perform_commani  (^o_onliae); 


at  this  point  copy_ie_reg  =  HEA  ,  but 
ie_reg  on  NI3010  is  actually  disabled  */ 
call  disable_cpu_lnterrupts t 

io  k  =  1  to  infinity; 

/*  note:  interrupt  not  allowed  during  a 
call  to  r^CCHTEX  primitive  -/ 


erb_wri te_value  =  read ( EF B_WFITE) ; 

/*  In~the  MXTBACE  version  of  the  RTOS 
all  primitive  calls  clear  and 
set  interrunts  (diagnostic  message 
routines),  so  the  NI3010  interrupts 
must  be  disabled  on  entry  to  t^XTRACE  */ 
do  while  ' erb_wr ite_value  <  i); 
busy  waiting 

erb_write_value  =  read  (EEB_W?.ITE ) ; 
copy_ie_regi ster-receive_block_availa  ble ; 
cail~wrlte_io_port  { interrupt_eriabl“_regis ter, 
recPive_block_available ) ; 
call  enable_c pu_inteprupts; 
if  a  packet~has~been  received  .this 
is  when  an  interrupt  may  occur  -  ran 
see  that  outbound  packets  are  always 
favored.  * 


do  ,1  ==  1  to  1000; 

/*  interruot  window  for  packets  received  */ 
end;  /«  do  ’)  */ 
call  ilsable_ciDu_i  nterrupts ; 

if  (copy  ie_reeistpr  =  receive_dma_done )  then 
do; 


/*  receive  Df^A  operation  started,  so  let 
finish.  ’'"V 

call  enable_cpa_interrupts; 

do  while  (copy_ip_regi  ster  =■  recei  ve_  .^a_done  ) ; 
end; 

call  disable_cpu_irterrupts; 
end;  /#  ift  */ 


copy_ie_regis ter  =  di5able_ni3010_interruDts 
oall  write _io_port(irterrupt_prable_ register 

d  is  abl»_ni381 0_ir.  te  r  "upt  s 


end;  /*  busy  ’'V 


/*  ERB  has  an  ERP  in  it,  so  process  it  */ 

/♦  no  external  interrupts  (RbA)  until 
the  ERP  is  consumed  and  the  packet 
^ets  sent  */ 

index  =  mod ( ( f ixed( i )  -  1),  erh_hlock_len ) ; 

/*  32k  limit  on  parameter  to  fixed  fen.  */ 

transmi t_data_hlock.data( 1)  =  erb{ index ) .command f 
transmi  t_data_'block.data{2)  =  erh(  index '.  type_name ; 

transnit_data_hlock.data(3)  = 

substr(er'b(  index)  .name_value,9.S) ; 

transmit_iata_block.data(4)  = 

substr(erb( index) .name_ value , 1 ; 

IF  (ERB  ( INDEX)  .CO^'MAND  =  1/  TREN  DO; 

TRANSMIT_DATA_BLOCK  .OSER_DATAa  )  =  rATA_T0_S  END  ; 

end; 

transmi t_lata_fclock .destination_address_e= 

subs tr( erb( index ) .remote_addr ,  l.S) ; 

transmi t_l a ta_bl ock .destination_addre5s_f = 

substr(erb(index )  .remote_addr  ,  9,3); 

call  advance  (FP.B_FEAD);  /*  caution  here  !!!' 

an  ADVANCE  will  result  in  a 
call  to  7P$SCHEDULFR.  which 
will  set  CPU  Inter’^upts  on  exit. 

It's  the  reason  NI3010  interrupts 
are  disabled  first  in  the 
Do  While  loop  above.  */ 

/*  packet  ready  to  ^:o ,  so  send  it  */ 

call  t ran sml t_packet ; 

/*  copy_le_re^lster  =  RBA  ,  but  not  actual  register  ■' / 
call  dlsable_cpu_i nterrupts ; 

/*  setting?  up  for  next  ERP  consumption  */ 
i  =  add2bltl6(l,  '0e0l'b4); 
end;  /*  do  forever  */ 

/*  end  main  body 


initlali2e_plc:  procedure; 

DECLARE 

wri te_io_port  entry  (bit  (8)  ,  bit(8)); 

call  wrlte_lo_port  ( icwl_port_address  ,lcwl ) » 
call  write~lo~port  ( lcw2_port_address , icw2) ; 
call  wrlte~lo~port  ( icw4_port_address  ,icw4 ) » 
call  write_l o_port  (ocw_port_address ,  ocwl ) ; 

end  inltiali 2e_pic ; 

perform_command :  procedure  (command); 

DECLARE 

command  bit  (8)  , 
re«_valne  bit  (9)  , 
srf~blt  (8)  , 

write  lo_port  entry  (bit  (9)  ,blt  (8)  ), 
read_ro_port  entry  (bit  (6)  ♦tit  (8)  ); 

/*  end  declarations  ’*'/ 

srf  =  '0'b4; 

call  write  io  port  (command  register , command ) i 
do  while  (Tsrf  &  '01 'b4)  =  ’00  b4); 

call  read_lo_port  (lnterrupt_status_re;<,srf ); 
end;  /*  do  while 

call  read_lo_port 

( command_status_re<?ister  , re »_ value  ) ! 
if  (ree  value  >  '31 'b4)  then 
do; 

/*  not  (SUCCESS  or  SUCCESS  with  Retries)  */ 

put  skip  edit  ( '*#*  ETHERNET  Board  Failure  >-.^^') 
(col(20)  ,a  ); 

/*  when  this  occurs,  run  the  diagnostic 
routine  T3010/Cx,  where  x  is  the 
current  cluster  number  */ 

stop; 

end;  /«  ltd 


end  perform  commard; 


transmit_packet :  procedure  external; 


DECLARE 

srf  tit  (9)  , 
reg_value  tit  (3)  , 
write_i o_port  entry  (tit  (S) 
read_io_port  entry  (tit  (6) 
enatle_cpu_in  terrupts 
disatle_cpu_ interrupts 
write_tar  entry  (tit(16)); 

/*  tegin  ’*'/ 

srf  =  '3't4; 

call  write_tar  (xmit  ptr_value); 

call  write  3io_port(  hrgh_tyte_count_reg , '??  ''t4 ) ; 

call  write_lo_port( low_tyte_count_re? , '3c 't4) ; 

copy_ie_regis  ter  =  transmi  t_ilna_done; 

call  wrrte_io_port( ir terrupt_enatle_r«gi ster , 

transmi t_imd_lone M 

call  enatle_cpu_i nt errupts i 

do  while  (  oopy_ie_register  =  t  rans'nl  t_4ina_done  ) ; 
end;  /*  loop'until  the  interrupt  handler 
takes  care  of  the  TDD  interrupt  - 
it  sets  copy  ie_refiri5ter  =  HBA  / 
call  perform_com7iand  ( road_a nd_sead  ) ; 

end  transrilt_packet ; 


.tit  (8)  ), 
.tit  (F)  ), 
entry, 
entry, 


scjt  .Je Xs*###  5?  sj!  ##  s)<  ^  ##  5?  ^ 


HL_lnterrupt_handl9r :  procedure  external; 


/*  This  routine  is  called  from  tne  low  level 
Sf596  assemtly  language  interrupt  routine  •^/ 


DECLAPE 


write_io_port  entry  (bit  '9)  .hit  ’.S)  ), 
read  ro_port  entry  (bit  (6)  ,bit  (8'  ), 
enatTe_cpu_interrupts  entry, 

di5able_cpu_interrupt5  entry, 

write  bar  entry  (bit(16)); 


/*  be^in  */ 

call  write_io_port (interrupt  enable_rsgis ter . 

(iisa'ble_nr3ei0_lnterrupt5 )  ? 

if  ( copy_ie_resister  =  receive_'bl oclc_avai lable  ) 
then  do; 

call  write_bar  ( rcv_ptr_valne) ; 

call  write_lo_port (hi^h~fcyte_count_reg ,  '05  'b4 ) » 

call  wri te_lo_port ( low_byte_count_reg ,  'f2 'b4 ) ; 

/*  initiate  receive  DMA  */ 

copy_ie_reglster  =  recei  ve_(lma_(lone  » 

call  wrrte_io_port ( Inter ^upt_e nab le_regls ter , 

rerei  ve_i'Tia_i  one  ) : 

end;  /*  do  */ 
else 

if  (copy_ie  resister  =  receive_imd  done)  then 
do; 

call  proress_packet; 

copy_ie_resi  ster  =  receive_bloc‘<_available; 
call  write  _i  o_port  (  in  terrupt_endble.,resi  ster 

recei ve_brock_dvi liable ) ; 

end;  /*  if  then  do  */ 
else 

if  ( cot)y_ie_register  =  transmi t_dma_done ) 
then  do; 

copy_ie_register  =  receivp_blocic_a’/ai  la  ble  ; 
/*  NI30I0  interrupts  disabled  on  entry 
end;  /*  If  then  do  */ 

end  HL_ir terru?t_hand ler; 


y  #  s;:  3;:  #  j;*  #  j;:  #  J?  SS  :i!  s;;  5?  *  jf:#  M  s;:  5;=  sf:  ^  5?  # 

process_pacitet ;  procedure; 

DICL*?;? 

DATA_ARRIVi:D  FL0«T  PASRD ':RX_DAT.«_PTR  ) , 

PriNTE'v, 

local_evc_val'ie  bit  (16), 
data_?tr  pointer, 

renote_evc  value  bit  '!ie)  based  '.data  ptr); 


if  (receive_data_t)locic.lata(l)  =  evc_type)  then 
do? 

data_ptr  =  addr(receive_data_block.data (3) ) » 

/*  remote_ev c_value  now  has  a  value  */ 

local_evc_value  =  read{ receive_data_blook.iata 

do  while  ( local_evr_value  <  remote_evc_value ) ; 

call  advance  (  receive_data_bloclc  .data  (2  ) ) ; 
local_evc_value  =  add2bitl6{l0''al_evc_valup, 

'0201 'b4) 

end  ; 

call  disable_ci)u_interruptst 
/*  this  Tiust  be  done  due  to  setting  of 
cpu  interrupts  by  calls  to  J^CO^TIX's 
7?$SCEFDULEH  via  «DV“NCE  / 

end;  /-  iti  */ 

/«  IV  IS  IM  THIS  RDB  THEN  TH»NSFH?  IT  TO  'J3E:  HTO 

ELSE  DC; 

UNSPEC(RX  DiTa,?!?.)  =  ?C; 

DATA_ARRIVED  =  R^CEI  V  :_D«TA_PL0CK  .USER_0ATA ’!  1  ) 
ENC; 

end  proc9ss_?acket ; 

/  V  Sr  s;:  #  «##>!!  5!« 5;=  4: 5r  ^  5)5  5r  s;:  #!!:#  5?  #  5^: >r  sit  sis 

progra'n_group_addr esses  :  procedure  i 
DECLARE 


1  group_addr ( 40  )  based  ■groua_?tr), 

2  rrc_group_f ield_a 
bit  •'  8  )  , 

2  nc_?rou'o  field _b 
bit  (8), 

2  T'c_?roup_f  lei  i_c 
bit  {8), 

2  nic  ?roup  field  d 


2  me  ?roup  field  e 
"bit  (8), 

2  mc_fi:roup_f ield_f 
bit  (8); 


rSCLARE 

{aroup_ptr,p)  pointer, 

(field_e,  fieli_f)  bit  (8), 
bit_8_groups  bit  (8)  based  (p), 

(1  ,num_?roups  ,groups_times_6)  Hxed  bin  (7); 

unspec (group_ptr )  =  ymit_ptr_value; 
open  file  (address)  stream  input; 
get  file  (address)  list  ( num_eroups ) ; 
do  i  =  1  to  num_groups; 

group_addr  (  i  ) .  mc_f;roup_fi  eld_a  =  '?3'b4; 
aroup_addr ( i ) .mc2ffroup_field_b  =  '0?'b4; 
group_addr • i ) .mc_2roup_fi eld_c  =  '02'b4; 

^roup~addr(i  )  .mc_^roup_field_d  =  '?'0'b4; 
set  file  (address)  list  ( field_e ,fi8ld_f ) ; 
sroup_adir ' i ) . mc_sroup_fi eld_e~ =  field~e; 

^roup^addr ( i ) . mc_sroup_fl eld_f  =  field_f; 

end;  /*  do  i  ’!'/ 

call  dlsable_cpu_intprrupts; 
call  write_bar  (xmi t_ptr_val ue ) ; 
call  write_io_port(hish_byte_oount_rep,  '00'b4); 
sroaps_t imes_6  -  6  *  rurn_sroups; 

V  =  addr  ( 2roups..t  imes_6 ) ; 

call  write_io_port(low_byte_ccunt_res.  b i t_p_2rouD5 ' ; 

copy_ie_reei ster  =  transmit_dma_done; 

call  write_io_port(interrutit_enable_re<=:i5ter, 

transmi  t_dina_done ) ; 
call  pr.able_cpu_l  nterrupts ; 

do  while  (  rop.Y_ie_resister  =  transmi  t_d'na_d  one  ) ; 
end;  /*  loop  until  the  interrupt  handler 
takes  care  of  the  TTI  interrupt  - 
it  sets  COPY_IF_PEG  =  ’'S' 

call  perform _comm and' load_eroup_addr esses ) ; 

end  proeram_2roup_add nesses ; 

sjt  X:  5}: «  »c  >;«*:::#  :s  #  jp :{!  V  =15  5i:  >!!  If:  s;-. «  «  sis  n:  >?*■■*  / 


/*  system  device  handler  and  packet  processor  ■•'/ 
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vvv 


X(  )(t  Xc  9!(  9  Xt  :$>  3{<  ){>  :!<  3i< )(( sit  a9<  34^  ajc  >i>  >((  >!(  aic «  >!<  :!< «  4i  341 4t  ait^t  i(c>ii  ift  ](c  #  9)1  #  :ji «  4t  :(c «  #  :tc  4c  4  Xc  9(c  34c  #  4  ^ >!' >#  3p  >1^ 

**  ASMR0UT.AS6  FILE  ** 

Xe  :<(  lie  9^  41  #  4c  4c  #  3(c  ije  4(  9(e4e  4e  4c  9ic  4c  4e  9ic  4e  9):  9<e  9)c  9ic  9)1 3ic  9ic  4t  4c  4e4i  >)(  Xe  4c  Xc  ){c  x«  >;(  9^  9^  V  >!c  Xc  9):  4c  4c  9ic  ])( 4c  3{c  9ic  39t  9;e  9ic  tic  >ic  9)c  9;e  9;c 

4t4!46  4e4c4c4«4c4e4c4s4c4c4e4‘4c4s45  4csi:4«s!!454c4s4csie4c4c4t4c4t4e4c4c4c4c4c9;c4e4c4e4t4c4e4c4c4c4«4«v4cXs4«45s;c4cX<4c4« 


extrn  hl_i nt errupt_handler  :  far 

public  write^io_port 
public  read_To_port 
public  write_bar 

public  ini tiali 2e_rpu_in terrup ts 
public  enable_cpu_interrupts 
public  disable_cpu_in terrupts 

•  4c4c4c9ic4c4c4c4c4c4c4c4c4c4c4c9;i4c4c9!c4c4c4c4c4c4c4e9)c4e9^3)c4c4c4c4cc)c4c4c4c4c4c4e4c4c4<4:4c4:s;s4c4:4:4c4c4c4c4:4c4:s;c 


wri te_io_por  t ; 


;  Parameter  Passing  Specification: 
;  entry 

;  parameter  1  <port  addres5> 


?  parameter  2 


exit 

<unchan2ed> 
<val'ie  to  be  outputtel>  <unchan*;ed> 


dsep 

port 

_addr 

ess  rb  1 

csea 

bx ! 

push 

s i  !  push  dx  ! 

mo  V 

si , 

[bxl 

mo  V 

al , 

[si] 

mo  V 

port 

address,  al 

mo  V 

si  . 

2[bxl 

mo  V 

al , 

[si] 

mo  V 

dl. 

port  address 

mo  V 

Ih, 

72 1 

out 

dx  . 

al 

pop  ax!  pop  lx!  pop  si!  pop  bx 
ret 


•  41  Xc  ;!c  4e  sic  4e  4c  9;:  4t  4c  4t  41 4: 4c  4c  4t  sje  4c  4c  4: 4c  sic  4t  41 4c  4c  4c  4s  v4t  4t  4c  4t  ;;c  cf:  4;  4c  4t  4 ;  4c  4t  4;  4c  4s  4t  4;  v.c  :;c  4 
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read_io_port : 


Parameter  Passing?  Specification 


parameter  1 
parameter  2 


entry 

<port  address> 
<meaningless'> 


exi  t 

<unchanged'> 
<register  value> 


cseg 

push  bx !  push  si  I  push  dxl  push  ax 
mov  si,  [bxl 
mov  al,  [sil 
mov  port_address ,  al 
mov  si,  2[bx] 
mov  dl ,  port_address 
mov  dh,  0(?h 
in  al,  dx 
mov  [sil  ,  al 

pop  ax!  pop  dx!  poo  si!  pop  bx ! 
ret 


write  bar: 


Parameter  Passing  Specification 

parameter  1  'and  only):  the  address  of  the  lata  clocic 

tc  be  transmitted  or  received. 


dseg 

e_bar_pc  rt 
h_tar_por t 
l_bar_por t 
temp_e_by te 
temo  es  rw 


9QU  0b9h 
eau  0bah 
equ  0bbh 
rb  1 
1 


csea 


;  This  module  computes  a  24  bit  address  frcm  a  32  bit 
;  address  -  actually  a  combination  of  the  Z3  register 
;  and  the  IP  passed  via  a  parameter  list. 

push  bx !  push  ax!  push  cx !  push  es !  push  d^ !  i.  ish  si 


rov  dx ,  0P00h 


shared  memory  segment 


mov 

temp 

_es,  es 

nov 

di , 

es 

mov 

si,  [bx] 

mo  V 

ax,  [si] 

mov 

cl,  12 

shr 

dx ,  cl 

mov 

temp_e_byte,  11 

mov 

di. 

temp_e  s 

mov 

cl ,  4 

shl 

dx,  cl 

add 

ax,  dx 

jnc 

ao_add 

ald_l ; 

inc 

temp_e_byte 

no_add ; 

out 

l_'bar_'Dort ,  al 

mo  7 

al ,  ah 

out 

h_bar_port,  al 

mov 

aT,  temp_e_'byte 

out 

e  bar  port,  al 

pop 

siT  pop  dx!  pop  es!  pop  cx!  pop  ax!  pop  bx 

ini tialize_cpu_interrupts : 

;  Module  Interface  Specification; 

;  Caller:  Zthertest f PL )  Procedur 


Paraneters 


NONE 


iri trrodule  csep  comn'cn 
or?  114n 

int5_offset  rw  1 
ir.tS  secr’®nt  rw  I 


cse? 
push  bx 
push  ax 

f^ov  hx,  offset  interrupt_handler 
mov  ax, 
push  ds 


mov 

mov 

ls:int5_of fset ,  bx 
bi,  CS 

K.*  s 

1  •  ^  "  k 

mov 

ds;ir.t5_se#tment,  bi 

pop 

ds 

LV^V. 

pop  ax 

pop 

bx 

enable_cpu_i nterrupts  ; 

;  Module  Interface 

Specification : 

;  Caller: 

Pthertest (PL/I  )  Procedure 

;  Parameters: 

MONE 

(lisable_opu_int9rrupt  s : 

i  Module  Irterface  Specification: 

*  Caller;  Ethertest (?L/I )  Procedure 

;  Parameters:  none 


interruDt  handler; 


;  IP,  CS ,  and  fla^s  are  already  on  stack 
;  save  all  other  registers 

nush  ax 

push  fcx 
push  cx 
push  dx 


push  si 
push  41 
push  bp 
push  ds 
push  es 

call  hl_lnterrupt_haniler  ;  high  level  source 

.  ;  routine 

f  restore  registers 


pop  es 
pop  Is 
pop  bp 
pop  li 
pop  si 
pop  di 
pop  cx 
pop  bi 
pop  ai 


APPENDIX  D 

Distributed  Decision  Algorithm 
Source  Code 


PA2,  PAS,  PB2,  and  PBS,  the  distributed  user  processes  which  implement 
the  distributed  decision  algorithm  d^cribed  in  Chapter  III,  are  documented 
herein.  Note  that  the  systems  file  SYSDEF,  described  in  Appendix  B,  must  also 
be  available  for  compilation  of  each  user  process. 

Processes  P.\2  and  PAS  are  linked  as  described  in  Appendix  A.  Their 
associated  command  files  NUM12.CMD  and  NUM1S.CMD  are  loaded  into  local 
memory  of  SBC  #2  and  SBC  #3  respectively  in  cluster  A  at  runtime.  PB2  and 
PBS  produce  NUM22.CMD  and  NUM23.CMD  which  are  loaded  into  the 
memories  of  cluster  B  in  the  same  way. 

Processes  are  loaded  when  requested  under  MCORTEX  control  and 
execution  begins  and  continues  until  an  await  state  is  encountered.  Once  all 
processes  have  been  loaded,  the  various  await  states  will  be  satisfied  by  advances 
of  eventcounts  in  other  processes  and  operation  will  continue  until  all  input  data 
vectors  are  processed.  • 


/>r  sjs  / 

/*  PA2  is  resident  in  local  memory  of  SBC  2,  CLUSTER  A.  >'•'/ 
/#  «/ 

This  procedure  performs  the  following  operations: 

/#  n=/ 

/*  1.  Loads  Quadratic  eouation  parameters  A.B.C.D.  ’■'/ 

/*  2.  Reads  sensor  A  observation  vectors  from  dis'<.  */ 

3.  Computes  LLF  (  LAK3DA_A_X  )  for  local  use.  =*=/ 

/*  4.  Computes  (  LA^^BDA_A_X  +  LAin3DA_?P_Y  )  the  '^/ 

/*  sum  of  the  local  and  remote  sensor  LLR's.  "V 

/*  5.  Compares  the  result  to  the  decision  threshold 

/*  and  disnlays  the  final  result  and  derision.  “/ 

/="  5.  Performs  steps  2-5  for  each  input  vector.  ■••/ 

/■,■: 

^ :(t  Jj! Jjt  5|: ![!!;: J^c  3); sis:;; S«s{j)}c  *s!;5;s5'^5|ss;6S!ss;;5p:(6:)!s;ss|;3jS3;es;t:i;Xt>!'V#>fS’r>l-##T*’?  —  — —  / 

3jss(6  5;ss;cs;;si;s^ sps;; sissies;: sics;; s’; s^slss^sisslss;; sissIssCs sissps^t 3^^ XsvV# Si'S Sr / 

?A2:  procedure; 

^INCLUDE  'SYSDEE.PLI 
‘^REPLACE 

PC  BY  'eDD(^'B4,  /*  ?3  IS  SET  TO  THIS  V“LUE  '■’V 


TRUE 

E«LSE 


BY  13, 

BY  '-'’'B, 

BY  '^00l'B4; 


DECLARE 

/slsslssissIsslssIsslssIssIssIsvSo.'ssissIssisslssIsslesissIss.tsSsJeslssItspsississisjItsIssisslss.'ssIssf.s.'s^esiss?:  Jjt  s,»  v)C  •!»  ^  sjt  ijc 

/'=  PAP.fi  LE  CONTAINS  TH^  FOLLOWING  PA:-«mFTE  =  3 
/- 

1.  r^AT’IX/VECTCR  DIVIENSICN. 

2.  D  DIAGONAL  FLE'^ENTS  OF  THE  vaT.-.IX-A. 

/■■  3.  CCL  BY  COL  ELEMENTS  BELOW  DIAGONAL  CJ 

/*  MAT’^'IX-A. 

/*  4.  D  ELEMENTS  OF  VECTOR-?. 

/■■'  0.  SCALAR-C. 

6.  THRESHOLD. 

/'^ 

/-  DATEILE  CONTAINS  THE  FOLLOWING  VALUES 


/-  1.  D-FLEMENT  X-VECTOKS. 

/=;: 

/  SIS  sis  SIS  sis  sis  sis  sis  SIS  sp  sjs  SIS  sis  sjs  sis  sis  sis  sis  ss  S|S  S’.S  SJS  s|s  s|s  y.s  s;s  S|S  S|S  «  sis  SjS  sis  s;s  s;s  sic  sic  s;c  S^  sis  s;c  sis  :;c  SIS  S.'S  sis  s;s  S  S  3)C  S?  If.  5  5  : 

(  P.ARFILE.D  i.TFILE)  FILF, 

EOF  ^IT(l)  STATIC  INIT(?ALSE), 

(I.J.D.N)  FIXED, 

(  A(  ?25  )  ,?(32  \C  ,T2,X:32)  ,  THR  F  S  H  ,  L  AMRD  A_ »  _X  i  FLOA' 
K  PIT '16)  STATIC  I N  IT  ;  'OsJOC  '  B4  )  . 


y^:t:«>;c:{e:tc^c$3ici{cs:e:4c:jC3!c**3;e:ec<e:tc3tt:ie:tc4iaic4c«i(i>ge4e>;c4eitc#«:(t3iE«4c:p:(t99Kc«9>i()P«#)ic9>i«3tc>:‘  / 
/#  »/ 
/*  P3  SET  TO  PC  TO  IE  ADDED  TO  SEGMENT  ADDF  0500  «/ 

/■If-  */ 

/:g(«Xc3!citc«9iC9gc9te#]tc#]teiSiK(]((3)eitcili]{i«)gi9}C]tc<(3!t]tc>)t4E:tc4c«:tc>;c<c>ic34e:jc:(cv#:((9i(:tc3gc:;e:;c9iE]{es;c;i(9!c3ic#  y 

P3  POINTER, 

/5;:«3;ts!s^s3ici!es;«<e:!ssJ(3!e,)ts!c#jJtj!!,>«#*){ej!e«*iJe:!tijt5jesie3:ssics!cslt*#:!c#*:iC5^«>:t3!s*,;t»,!#*#*j;«#>;tJi<  / 
/*  ’!'/ 
/*  BASE  LAMBDA_B?_Y  AT  P3  =  PC  (OFFSET  ADD  TO  D?T.'-  ’V 
/-  SEGMENT  =  0800  )  -/ 

/#  #/ 

LAMBDA_BP_Y  FLOAT  BASED(P3); 

/*  SET  POINTEFS  TO  VALUES  INDICATED  IN  REPLACE  ABOVE  */ 
UNSPEC(P3)  =  PC; 

/#  «/ 

/*  INPUT  PARAMETERS  FROM  DISK  FILE  -  / 

>s  / 

/*  MATRIX  S.  VECTOR  DIMENSION  (D  =  INTEGER)  -/ 

>;=/ 

/’>'  CALCULATE  N  =  OF  MATRIX  ELEMENTS  TO  INPUT  '-V 

/* 

/-■'  MATRIX-A  (SYMMETRIC)  */ 

/sis  SI-,  / 

/*  DIAGONAL  ELEMENTS  FIRST  [^  =  j)  */ 

/*  COLUMNS  EELOV;  DIAGONAL  NEXT  (#  =  N-D)  -/ 

/ss  --V 

/-  VECTOR-S  (D  ELEMENTS)  -V 

/* 

/-  SCALAF-C  (1  NUMBER)  ”/ 

/’■■  '-/ 

/■'  THHESHOLC  (1  NUMBER)  =V 

/*= 

/>;!>;t8!si;6:issf!3;c,;-.,je3;t3!ss;ss;.-s;6si;;(6s!:s;ss;ss;:#;is:(6sissts5;:5{:3?y.;5!:s;s^5xs>:s*j;6>)ts!tsj5  5;es;::<s:i:si:sj:s|ss!:>.5s;t5,':;;s5;:5i::;:  ^■ 

OPEN  FILE :?AF FILE)  STREAM  INPUT; 

GFT  FILE(?JR7ILE)  LIST  (D); 

M  =  ( 'D  *  D)*D)/2; 


ro  r=i  TC  ;; 

GET  7ILF(?ARFILE)  LIST  vA(I)); 


DO  1=1  TO  d; 

GET  EILE(PARFILE)  LIST  (B(I)); 

end; 

GET  FILE(PAREILE)  LIST  (C, THRESH); 

PUT  SKIP  LIST  ('DIMENSION  =' ,D , 'THRESHOLD  =', THRESH); 


/'‘  */ 

/*  INPUT  «ND  PROCESS  X-VECTCRS  */ 

/*  */ 


ON  ENDFILE{D4TFILE)  EOF  =  TRUE; 

OPEN  FILS(D.ATFILE)  STREAM  INPUT; 

DO  1»HILE'ECF  =  FALSE); 

K  =  4DD2BIT16(K,0NE) ; 

PUT  SKI? (2); 

DC  1=1  TO  e; 

GET  FILE(D»TFILE)  LIST  (X(I)); 

PUT  SKIP  LIST('X  (M,')  =',X'I)); 

end; 

/-  CALC  LAM?DA_4_X  =  (  X-T?*  NS  )’!' (  4  _^'AT?.  IX  )'!' (  X  )  -/ 

LA'^?DA_4  X  =0; 

DC  J=1  TO  D-i; 

DO  I=J*1  TO  d; 

LAMBDA  A  X  =  LAMBDA  A  X  A.  ( I  +  J*1 ) ’■‘X  (  I  )  *X  !  J  M  ; 

end; 

end; 

T2  =0; 

DC  1=1  TC  d; 

T2  =  T2  -  (  4  (1  )*X{  I  )>!'X(  I  )  )  ; 

end; 

LA.M?.DA_A_X  =  '2’HAM.EEA_A_X  )  -"  T2 ; 

/-  ADD  L4M?D;_4_y  TO  (  B-7ECT0R)-(  X )  S  3TO:-E  -•=  / 

DC  1=1  TO  d; 

LAM3rA_A_X  =  LAMBPA_A_X  +  ■'  3(1)  -  X'D); 

i?nd; 


/-  .4.30  LAMPD!  IX  TO  C  L  STORE  lU  LA >^3 DA.  A  >;  --f- / 


LAMBDA  A 


V 

A 


LAMBDA  A  X 


/4>>)(c#:((){:4c:te)tc3!c#X:#iic:te4c:(:3(c:(c:ti:((>)c3)(#3ie3tE4ci{t:(c9te:tc:(:^:ic:;c9ie>;c:jc]0c«9!e3^9;c:tc:($9jc9i:s;c9!c9Cc:i::ec#)ie  / 
/*  */ 

/*  AWAIT  LAf^BDA  BP  Y  CALCULATED  IN  THE  OTHER  CLUSTER  'V 
/*  */ 


CALL  AWAIT(31EVC,K); 

PUT  SKIP(2)  LIST( 'LAMBDA_^\_X  =  '  ,L  A!^?D.«_  ■‘_X  ).* 
PUT  SKIP  LIST  ('LAMBDA  BP_Y  =', LAMBDA  ^^P  Y); 


/*  ’’•'•/ 

/-  ADD  THE  LAM3DA_3P_Y  VALUE  RECEIVED  FROM  */ 

/«  THE  OTHER  CLUSTER  VIA  TEE  ETHERNET  TO  <V 

/-  THE  LAMBDA_A_X  VALUE  CALCULATED  IN  THIS 
/*  CLUSTER,  AND  COMPARE  TO  THE  THRESHOLD.  =V 

/if-  iff 

5}!  j.! V  jj! :{:  jjs  :(c  sit  s’.'- 3;s3j«#>)<:<S5i!3>:>!s>i«Ss*:<5s!!it!s?  3(33?  sit  :r>i!:;5>!s  si*  sis  / 


T2  =  LAM^DA_A_X  LAMBDA_3P_Y; 

IF  (T2  ^  THRESH)  THEN  DO; 

PUT  SXI?  LIST ( 'RESULT  =',T2,'IS  >  THRESHOLD  '); 

end; 

ELSE  do; 

PUT  SKI?  LIST>'°ESULT  ='.T2.'IS  <  THRESHO'LD  '); 

end; 

DC  1=0  TO  1000; 

DC  J=0  TO  500?  .'*  DELAY  LOOP  ’V 

end; 


/•V  •’<  -f*  «*»  »*#  «'•  *•«  *3.  •*»  V»  V.  >*»  •*»  V»  'f*  »'»  ^  5*'  »V  »*•»•»  •*»  ••»  s'*  »•»  %•»  »'*  %<*  %'•  »*•  »’•  »••  -  *•.  .*•  •'*  / 

/5l«  / 

/V  ^JCTIyY  FOARD  -3  TO  CONTT^J"  WITH  N’TXT  INPUT  7P-CTO-  -/ 

/::c  =::/ 

/  ;;c  ^  3;:  )!<  5;s  Jji  if.  sit  sit  s',t  sjt :  t sis  s’,; s;;  >;<  sit  Xs  s:t  s;t  s;s  #  s’t  :;c  s':  s;?  ^  5;:  s,t  s;t  s;;  s);  sic  s^;  sj;  s;;  s;s  s;;  s;:  s,;  sit  s?  :lt  s;:  s;: s;;  ' 


C^iLL  A.DVANC^(  A.2EVC  ); 

/=;:  7'’:;.  0;  DC  WHILE  '^CF  =  FALSE)  LCC^  -/ 


T  3^I?(.3)  LISK'EV;)  OF  INPUT  D'TA'); 


^!!t>!«j5:3:ss::j;e-.;<j!!#:!s*j’e#j;t*5;!#<s»;c»ies;s#:;s#:j!3Sij!«#<t:jei{c5!es3cj;s#**>;e#j;<#>;{i5t##5:ts;s5^s;ts;e^«s;s*:;;*sj!;;s:i!  / 


/# 

/« 

/« 

/* 

/« 

/* 

/« 

/* 

/* 

/- 

/sl= 

/“ 

/- 


?A3  is  resident  in  local  memory  of  S5C  3,  CLUSTZ?. 
This  procedure  performs  the  following  operations: 


1. 

2. 

3. 


Loads  quadratic  eouation  parameters  A,E,C,D. 
Reads  sensor  A  observation  vectors  from  dis-c. 
Computes  the  Conditional  LLR  '  LA'^BDA_AP_X  ) 
to  send  to  sensor  B  for  further  computation. 
Submits  a  reouest  into  the  F?.B  queue  to  send 
the  CLLR  statistic  to  sensor  R. 

Advances  eventcount  AIEVC  to  signal  sensor  3 
that  its  awaited  statistic  is  available. 


*/ 

*/ 

*/ 

-/ 

*/ 

-/ 

-/ 


/  if;  ^  !!t  s;n;s  3p  5^ !(!  i^s  #  #  =1*  5?  5^!  s;:  XS  Sr  s?  ❖  ❖  ❖  *  * ^  >j!  rl! :{«  *  J*e  #  !*:  *  sj:  Vt :S  Jls  s’,:  s!e  s;: : 5.!  / 

/  s;s  sjs  sj: sjs  s;:  sit  j;:  si!  s!s s^  sf; 5^:  sjs  jjs  sis  Jj:  sj:  ^  sjt  5jc  s{c  si::jt  :{t  :(t  !{t  #  si:  S:  >r  Sr  s:«  sS  s;t  s;:  s!:  s!e  5^  i;:  s;: s;c  sit  s?  sS  s;:  / 


?A3:  rRCCEBUHE; 


'^IVCLaDF  '3Y3DIF.PLI 
‘^REPLACE 


PA  ?Y  '9000 '34.  /* 

PB  BY  '9CC0'34, 

ER''=  RICCK  LRNC-?^  RY 

E'H?“?.ICCK~LRNGfH_'’?l  BY 

TRUE  BY 

V  4  lse  by 

ONE  BY 


?1  IS  SET  TO  THIS  VALUE  -/ 
T’a  IS  SET  TO  THIS  V4LLT  -/ 
2’^,/*  USED  TO  CONTROL  -/ 
IP,/-  E<3  SIZE  "f 

'I'B. 

'  0  '  ?  , 

'0001 '34; 


DECLARE 

s;s  sitsltsp  s|«  Sjtst  sitsi.- :;ss(!  sit  si:  5|:  sits;;  si;  sjt  sit  ^sjtsjtsftsltsjtsitsltsit  sits?  sjts^sissHsjtsjt  sit  #si:  sit  s|t  sits;:  sit  sItsSs,':  sit  sp  sits;:  sit  sS  J 


/-  PARAEILE  CONTAINS  THE  EOLLOWING  PARAMETERS  -/ 

f  *'•  'I*  / 

/-  1.  Y«TRIX/VFCTOr,  DIYE\3IO^'.  =V 

/-  2,  r  diagonal  ”LE''ENTS  ce  the  matrix-ap.  -/ 

/-  3.  COL  BY  COL  ELEMENTS  BELOW  OI‘GCN.-L  0? 

/-  r»TRIX-A?. 

/-  4.  D  ELEMENTS  OF  VECTC--3?.  ”/ 

0.  SCiL»?-C?.  -  ' 

/=■-  -/ 

DATAFILE  CO  •■..TAINS  T.RE  FOLLOWING  VALUES  ■■■  / 

/^-  V  / 

/-  1.  D-ELRmfnt  X-7FCT0?S.  ■'- / 

/Sr 


.  yu  V#  W#  *4^  «  «  «'r  W#  %'  '  V*  V#  V#  V*  ^  t  »tr  %>P  %*•  < 

f  #1%  #1%  rs%  #1*  «l*  . 


(PARA.FILE.DATA^IIE}  FIL^. 

EOF  ^ITi'l)  STATIC  INITJFALSE), 


I.J.D.N)  FIXED, 

(  4P( 529) ,BP(32) ,CP,T1,X(32) )  FLOAT, 

/  IS*  sit*  sitsltsit  ###«««>!«  / 

/#  «/ 

/*  INDEX  VARIAELSL  AND  CONSTANTS  USED  F0P  */ 

/#  #/ 

/«  INDEXING  IN  THE  ERB  ( FHB  INDEX)  ="/ 

/*  SEOUEMCING  &  CONTROL(  II,JJ,X  )  */ 

/*  IDENTIFYING  DATA  TRANSFER (DATA  TYPE)  */ 

/-  IDENTIFYING  OPPOSITE  CLUSTER_ ADDRESS 

/*  */ 

EPB  INDEX  FIXED. 

(H;jJ)  BIT(16). 

K  BIT(16)  STATIC  INIT ( '300^ '34 ) .  ■ 

DATA_TYPE  BIT(8)  STATIC  I M I T (  ' 01 '34 ) , 

CLUSTER  ADDRESS  ?IT(ie)  ST&TIC  INIT ( '0302 'P4  ;  . 


! s;:  3|: sj;  sj:  s!:  s,":  if  si 
/if 


'fiiifi'flfffSfifififififtftfifififi^ifififif'ifif.iftfififififififififififififififififif/ 

5,C  / 


POINTERS  ARE  USED  IN  THE  FOLLOWING  MANNER  -/ 

/s;:  =;:/ 

PI  SET  TO  PA  TO  BE  ADDED  TO  SEGMENT  ADD?.  0800  ' 

/if  p2  SET  TO  PB  TO  BE  ADDED  TO  SEGMENT  ADDR  0800  '■* / 

/'■' 

^  ^  ^  'V ^  3;t!i:s!:s?s',:s;ts::s;«Xss;:3{!^s:jss.':8;«3;:s:«s;:31<:}:s|ss!c>>!3!;sX>;:5^s;ts;t3js#;ss!!3;t8S3;«s5es?s:t*s;c>?$;5s:«$’,:::5sjc>SsS««  / 

(?1,P2)  POINTER, 

/  it  sf:  sj:  s':  sS  A A  if  A  i  •  si*  ❖  A  A  if  if  Sr  sl<  if  if  ❖  >!«  5l=  A  A  *  if  ^ if  if  if  >!'  >1'  if  >!'  A  ^  s;:  :!'■  >1:  if  if  '•'■if  A  / 
/if  if/ 

/-  TFE  ETHERNET  REOUEST  BLOCK  ( E?E )  -/ 

/-  ••/ 

/if  FTPZPNET  '•’EOUEST  PACKET  (EP?)  STRUCTURE  / 

/« 

/-  IS  USED  IN  TRi?  ECLIOV/ING  f'^NNEP  =V 

/if  if/ 

/if  COM'^'3MD  =  1  EOR  DATS  TRANSES'"'  C7EP  E-'l£T  ■-- / 

/*  TYPE  fNOT  USED  PY  T"I3  PRCCEDUrE.  !  / 

/-  VALUE  (NOT  USED  ^Y  THIS  pRCCEDU-E)  -/ 

/if  REMOTE  'D'”.'.  =  CLUSTER  '-D^pysS  07  DESTINATION  --V 


1  EP‘=(0:En3_^LOCK_LENGTH  Ml)  ^ASED  (PI) 

2  COMMAND  fIT(e)7 

2  TYPE  BIT ■ 8 ) , 

2  VALUE  BIT(IP). 

2  REMOTE  ADDR  BIT(ie) . 


1'^  ^  / 

/*  BASE  LAMBDA  _»P_X  AT  P2  =  PB  (CFESET  ADD  TC  DATA 
/*  SEGMENT  =  06J50  )  -/ 

/'*  ’V 

LAMEDA_AP_X  FLOAT  EASED(P2); 

SET  PCINTS-'S  TO  VALUES  INDICATED  IN  REPLACE  ABOVE  ’'•V 
UNSPEC(Pl)  =  pa; 

UNSPEC(P2)  =  pb; 

y5;si{t:;ss;e>;t s;!# :;«:;5>;!s;ss;s :!«»;« J,^3!!:!c:(t3!t lie# j?si::p sjtsjtrjtjlcjie s;t sit# S!si:s!s y.:^  / 

/«  #/ 

/■-'  INPUT  PARAMETERS  FROM  DISE  FILE  -/ 

/«  #/ 

/*  'MATRIX  &  VECTOR  DIMENSION  (B  =  INTEGER)  -V 

/*  #/ 

/-  CALCULATE  N  ^  «  OF  MATRIX  ELEMENTS  TC  IJPUT 

/tit  V/ 

/-'  ^AT'IX-AP  (SYMMETRIC)  / 

/s;?  5^  / 

/■^'  DIAGONAL  ELEMENTS  FIRST  {«  =  D)  */ 

/'•■'  COLUMNS  R'^LCW  BI AGONAL  NEXT  =  N-I)  -V 

/t;t  #/ 

/M  VFCTCR-BP  (B  TIEM^NTS)  -/ 

/sit  ■  tit  / 

/*  SCAL'r-C?  (1  NUMBER)  -/ 


FILEfPA?  ■'•EILE)  STRE^'.M  INPUT; 

CRT  FIL"; ?£ RAFILE)  LIST  D,; 

N  =  (  r  *  D-D/z; 

DO  1=1  TO  n; 

GET  EILFf  PARS  FILE)  LIST  (APd)): 

ent; 

DO  1  =  1  TO  b; 

'’•ET  FILE'PA.RAFILE)  LIST  dP'D); 

end; 

GET  FILEfP'-P.A.FILF)  LIST  '.CP): 


^  LdT  'DIMENSION  ='.D 


/«  INPUT  AND  PROCESS  X-VECTCHS 

/* 

y  >!«>!!  j;: s!!^:{t)!sj;s sit  sis  S'!  :;sj;s:^:  sis s;s:,‘ts|::{t  sic sftsjesfssi: 4c  ^isjesjc  sit  sisiftslcsicsjcsi:  sls^csjtslssltslsslsslssjsslsslc 


*/ 

-/ 

=;=/ 


ON  ENDFILE(DATAFILE)  EOF  =  TFUFr 
OPEN  FILF(DATAFILE)  STREAM  INPUT; 

ro  v;hile(eof  =  false); 

CALL  AWAIT( A2E7C,K) ; 

PUT  SKIP(2); 


ro  1=1  TO  d; 


GET  FILE(DATAFILE)  LIST  (X(I)); 

PUT  SKI?  LIST(  'X  ^M.')  ='.xfi)); 

^nd; 

/V  STOKE  '  X-TRA.NS  )*(AP-'^»TRIX)’!^(X}  IN  LAMELa_A,?_X  ‘■V 

LAM?rA_A?_x  =  o; 

DO  J=1  TO  D-i; 

EC  i=j-"i  Tc  r; 

L/M3DA_A?_X  =  LAMEDA_AP  X- (  A  ?  (  I  +  J +  1  ) '^X  (  P  “^‘X  (  J  i  ) : 

end; 

ENt; 

Ti  =  •?; 

DO  1=1  TO  d: 

?i  =  Ti  +  (A?(  I  )*xa  )*x{  n  ) ; 
end; 

LA'«?jA_A?_X  =  (2-L,''’^“DA_“?_X )  -  Tl; 

/-'■  ADD  LA"^?EA_A?_X  CO  (  PP-VECTOK  )-(  X  )  E  STORE  -  / 

DO  1=1  TO  d; 

LAMPrA_A?_X  =  LAMBrA_A?_X  +  -  XI)); 

end; 

ADD  TAMEDA_AP_X  TC  CP  R  STORE  IN'  LA '^E  D  A_.‘ ?_X 
LArRDA  AP  X  =  LAMBDA  A?  X  +  CP; 


P'7 


/#  #/ 

/#  set  a  ticket  to  enable  a  write  to  the  E=3 
/*  -/ 


II  =  ticket(erb_write_?eouest) ; 

/*  II  NOW  HAS  T^E  VALUE  OF  THE  TICKET  RETURNED 
JJ  =  READ(ERB_WEITF),* 

/*  JJ  NOW  HAS  THE  VALUE  OF  ER1_WRITE  ■- / 

DO  WHILE(JJ  <  II); 

JJ  =  READ {ERE  WRITE); 


end; 

/-  IF  ETKErNET  DEOUEST  BLOCK  (E?.B)  IS  FULL-BUSY  WtIT  ■' / 
JJ  =  READ(ERE_P.EAD); 

DO  WHILE((II  -  JJ)  >=  ERB_BLnCK_LENOTH ); 

JJ  =  RF.AD(ERE_READ  ) : 


end; 

y  5!s#5;53i!!{«s;:!t!#:(S5:': !;«:(« sit 5|sft:i(j;s5is)(5:?>|;#s(r5!:*  ^s^iltjiesysltsjtsyslcsltsississltsitsitsjtsltsltsltslssltsicslssltslts-sltsits.';  / 


/s;t  =;=/ 

/#  TO  ERB  WHFN  ^  SLOT  IS  C?“N  ■‘‘Z 

/’-  COf^l^AMD  =  1  FOR  DATA  TO  EE  TR AN'SF^i-.ED  */ 

/s;t  oe,v.0TE_ADD=  ^  DESTINATICM  CLUSTER  ADDRESS  “V 


ER2_lNrEX  =  ^'Cr{II,E-?_5L0CK_LENSTH); 
EFE^E?.B_INDEX)  .COt^KAND  =  DATA_TYPE; 

ERE  '.ER°  INDEX  )  .RE''CTE  AEDR  -  CLUSTEH_ADDKESS  ; 


sit  sf;  sic  sis  s;s  s;t  s;t  :;i  #  sH  sit  sj:  sit  sit  sjt  sjc  sH#  #  sle  sit  s(t  s): :?  s?  »|t  s(r  s,t  ijt  sjt  sj:  :0c  s?  9): 

/* 

/■•!'  NOTIFY  MCORTFX  THAT  ER?  WRITE  IS  CCf^EL 


%■#  / 
*,«  '«*  ^  ^  •r  “S'  ^  / 


>;=/ 


/* 


jjc  5}e  ^4  3*4  >;?  3\t  i'fi  i\'  sj*  9\t  :ffi, 


V/ 

=;=/ 


C^LL  ’DV«NCE(ERB  WHITE); 


/>;*  '^/ 

/*  AN  ETHERNET  HECUEST  PACKET  (ER?)  IS  NOW  SETUP  ’*'/ 

/*  IN  THE  ETHERNET  REQUEST  BLOCK  ' ERB ) .  THIS  WILL  -/ 

/*  SIGNAL  THE  DRIVER  PROCEDURE  ON  BOARD  1  TO  FETCH  */ 

/-  TEE  DAT*  STORED  IN  COMMON  MEMORY  ( L »MBD A_ A P_ X )  AT 
A  ADDRESS  0e00;eCC0-0S03:BCC3  &  MOVE  IT  TO  */ 

/*  ADDRESS  0=00:90rA-0e00:e0DD  {  TRANSMI  T_DATA_3L0CK:  }  */ 
/*  ALSO  IN  CO»^MON  MEMORY  TO  BE  PACKETIZED” AND  SENT  TO  ’i*/ 
/*  THE  RECEIVE  DATA_BLOCK  (RDB)  OF  THE  OTHER  CLUSTER  ’!'/ 
/-  ADDRESS  0500: 9670-0800  :e67F  *'EEEE  IT  IS  ^OVED  TO  */ 

/*  ADDPFSS  0e00:BDD0-0800-BDD3  IN  THE  OTHER  CLUSTERS 
/*  COMMON  memory  (LAM?DA_AP_X ) .  'V 

/If 

/  ^  sK  >;s  s?  :fc  j(«  XJ  sje  ::e  jj!  sjt  3;s  #  s,x  sis  St  SIS  >i!  / 

y  s;:s;5s;ts:5Sss,tSss;ss;:SsS!s;5s;:Sss;ss;<s;tslss;ss>;s;ssitstsStsis5lt3{6Slss!5:)ts{6s,ss.sSt!{‘>(:>i:siss)ts!s>)s>?s;csiCB|;sit:ltsicsitsit5',ss;ss;5sis  / 
/-  -/ 

/*  NOTIFY  OTHER  CLUSTER  THAT  DATA  IS  RE»DY  '* / 

*1 

s|s  s;s  if  -if  if  if  if  if  if  if  if  s;-  >f  sis  s;s  sis  s|s  s|c  sic  sjs  sis  sjs  s;:  sls$;s  sjc  sit  slssjc  sis  sjs  s|s  sjc  sis  sjs  if  if  if  sis  sic  sic  sis  sis  sjc  5|s  sit  if  if  if  s|s  s; 

CALL  ADVANCE( AIEVC); 

K  =  ADDPEIT16(K,0NE); 

end;  /-  end  07  DC  WHILE  (EOF  =  FALSE)  LOG? 

PUT  S‘:i?(3)  LIST('END  OF  INPUT  DATA'); 

ENI  ?A3; 

yslsy^  slS5lC5lts;ss^ts;sslts|SJjS3^ts|S5ls:lS5ys^slt:lS5lt3Jss|:s!tsic5lsxsBIcsjCl{t5ltsl6^1tslcs,•ssits;tsi;sX8,■es|sslsslss!ts;ts;s3its;tsicslss;tBItB:sXtXtX:s 
/ifififififi!ififififif)f>y>f)fifif!fific  s:t5Issp:;.•3lss}:s!ss^cs5:3Ss!cs}:s;e5its!t:fss^;)csJcs^cs^ss;ss{:s;sslss?!(c5|ts■^8:sslts;c;;ss;ss(c$; 

/if 

/’■■  'i’32  is  resident  in  local  nencry  of  SBC  2,  CLUSTER  3 

/V. 

This  procedure  performs  the  followi  rifC  op6rdtionst 

/❖ 

1.  ’cads  cuadratic  eauation  pa-ameters  A.B.C.D. 

/-  2.  Reals  sensor  ?  otservation  vectors  from  lis^. 

/*!■-  3.  Compnes  LL?  '  LAMPDA_‘p_Y  }  for  local  use. 

/-  4.  Computes  '■  LAMBDA_B_Y  s-  LA''BDA_A?_X  )  the 

/='■■'  sum  of  th“  local  and  remote  sensor  LLR's. 

n'  z.  Compares  the  result  to  the  decision  threshold 

/■■■  and  di'^plays  the  final  result  and  decision. 

/*  6.  ?>=rf orris  steps  2-5  for  each  input  vector. 


■  if  if  i f  if  if  is  if  if  if  i  -.  if  if  if  s;s  s|:  is  sl^  sis  s’:  s]:  si;  s|:  s|t  sis  sis  #slt  «  Xs  sp  si:  sis  :lt  s?  s,s  sis  sjc  sis  s)c  sic  sit  sjc  sit  sit  sjs  sj:  sit  s?  s;c  s;:  :|:  s| 

'  >!«  5^  V  5!*  tt  ils  5;;  >;<  5;:  i'fi  5{s  9',i  5;<  i'.i  Xfi  ^  5|«  tfi  s;s  i.s  X'  X2  i’fi  *’5  Xc  X'  X'  Rr  -ii  X?  A*'  X«  *  Xc  '5 


PB2:  procedobe; 

%INCLUDE  'SYSDEF.PLI 
^REPLACE 

PC  BY  '9DD?'B4.  /*  P3  IS  SET  TO  THIS  VALUE  #/ 

TRUE  BY  'I'B, 

FALSE  BY  '0'B, 

ONE  BY  'C001'B4; 

DECLARE 

y  Xsjftsfssr  ifs*#  :;«*#***  / 

/*  PAPFILE  CONTAINS  TEE  FOLLOWING  PARAMETERS  */ 

*/ 

/*  1.  MAT=IX/VECTCH  DIMENSION.  -/ 

/«  2.  D  DIAGONAL  ELEMENTS  OF  THE  MATRIX-A.  ’!'/ 

/*  3.  COL  PY  COL  ELEMENTS  BELOW  DIAGONAL  OF  -^Z 

/*  MATRIX-A.  */ 

/*  4.  D  ELEMENTS  OF  VECTOF-B. 

/*  5.  SCALAR-C.  -/ 

6.  THRESHOLD.  */ 

/«  */ 

/*  DATFILE  CONTAINS  THE  FOLLOWING  VALUES  >•=/ 

/*  */ 

/«  1.  D-ELEMENT  Y-VECTCRS . 

/*  */ 

( ?«KFILE,D "TFILE)  FILE, 

EOF  BIT(l)  STATIC  INITCFALSE), 

(I.J.D.N)  FIXED, 

(A(52B),B(32),C,T2,Y{32), THRESH, LAMBDA  B  Y)  FLOAT, 

K  PITdfi)  STATIC  INIT( '0000'?4)  , 

y it  ^{s;s  ;|:  5;.-  <5  *  *  5;«  >;,  #  jf:  *  :(t  s^!  j[:  <e  sit  #  #  :C!  Sr  5)5  *  sit  ^t  s;t  sit  sit  sit  sjt  s;t  sjt  ;(t  sjt  sit  sS  5|t  sit  5|t  sjt  sit  sit  sit  s|t  s;t  sit  sit  s.:  / 
/sit  sit/ 

/*  ?3  SET  TO  PC  TO  PE  ADDED  TO  SEGMENT  ADDR  0P’!0  */ 

/sit  s,/ 


P3  POINTER, 

»>r  S>>  «v  «V  %>r  •V  «>r  V#  %'«  «V  .<•  %V  .^r  V'  >'«»V  »<*  y«  Or  Or  •*«  JW  %lr  Or  Or  ««r  x'r  / 

r,»  r,*r,*  r,*  J,.  r,  .  r.  .  s-.  •  r,«  r  •  r,«  r,  .  r,«  r,  •  .»  r,«  r.-*  r,«  r^  »,»  fS*  ?  -  »>»  »,»  r<*  r,»  r^  r,»  ^  r,«  r..  r,»  r,fc  r,>.  .f»  r,«  rf>.  r,»  r,<.  i 

Or  / 
/ 

EASE  IAMEDA_A?_X  AT  P3  =  PC  'OFFSET  ADD  TO  Dd''  -/ 

SEGMENT  =  2800  )  =V 

s?/ 

s^-s{ts!! 

'I*  ^  ^  ^  ^  *1'  sltsSt5itsitB;tsitt;t>;t5(ts(cs!t5i:s!t:jts;ts(tsit:{ts{t^t5its;tslt#5l!sits{t:)tslctlts^s{ts:tslt:<t8;,slt5;ts;ts^5lt ! 


LAMBDA_A?_X  FLOAT  BASEr(P3); 

/s;t  poiktEFS  TO  VALUES  INDICATED  IN  REPLACE  A^OVE  -^ / 
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UNSPSC(P3)  =  PC; 


/SiS 

■^/ 

/« 

INPUT  PARAMETERS  FROM  DISK  FILE 

sic/ 

/* 

sis/ 

/Sis 

MATRIX  &  VECTOR  DIMENSION 

(D  =  INTEGER) 

SfS/ 

/» 

Sic/ 

/Sic 

CALCULATE  N  =  #  OF  MATRIX 

ELEMENTS  TO  INPUT 

if./ 

/« 

SIS/ 

/* 

MATRIX-A  (SYMMETRIC) 

'V 

/« 

Sis/ 

/Sfs 

DIAGONAL  ELEMENTS 

FIRST  (#  =  D) 

SIS/ 

/Sis 

COLUMNS  «ELOW  DIAGONAL 

NEXT  {#  =  N-D) 

if/ 

/« 

=v 

VECTOF-P  (D  ELEMENTS) 

/* 

/sis 

SCALAR-C  (1  NUMBER) 

-/ 

/sic 

if  / 

/SIS 

THRESHOLD  (1  NUMBER) 

■*/ 

/* 

if/ 

0P5:N  FILZfP^RFILE)  STRZAH  INPUT; 

CZT  ?ILZ{?AR?IL3)  LIST  D; 

N  =  (  fD  D)+D)/2; 

DC  1=1  TO  n; 

CZT  ?ILE(PARFILS)  LIST  A(I)); 
END; 

DO  1=1  TO  d; 

OET  EILEvPARFILE)  LIST  '3(1)); 

end; 


SET  FILT^?«RFILE)  LIST  fC, THRESH'; 

PUT  SKI?  LIST  ■; 'DIMPNiSICN  =  '  .  D  . 'T^RES  HOLD  =', THRESH); 


/  V  5r  5i«  #  sis  **  !P  >:«>?>;<  5i!  >|S  sis  >;«  Sr  >;«#  sis  ##  Sf  5;s  #«£  >r  #  sit  >>!  #  Sr  #  >r  W  #  Sit  «  s;:  #  >l5  v*#  / 

/-  •■'/ 

INPUT  ('ND  PROCESS  Y-VECTCRS  =V 

/*  */ 

/»•<  •*«  »•»  •*«  »V  »<*  •*»  •*»  «'•  •*»  •*<  •*»  s'*  »•»  »•*  »•*  nV  »•»  ‘V  »•*  **•  V»  V*  •**  »***•*  «**  ^0  »*•  »'•  »1*  O*  »*•  »*•  *’•  «*•  »•»  / 

»l*  #(»  *,»  »,•  *,•  *!•  'f*  »|*  *t«  *»'  *i»  *»•  <«•  *«*  *i»  *!»  *»♦  *»•  •,»  »«»  »!•  ^  *,»  *l»  *»«  *,'  *C  '»*  'I*  ^  'I*  *1'  *1*  'I*  “f*  *1*  *«»  'I*  **•  / 


ON  ENDEILKD^TFILS)  EOF  =  TRUE 
OPEN  FILE ;D ITFILE)  STREAM  INPU 
DO  WHILE(EC7  =  FALSE); 


K  =  ADD2BIT16{I[,0NE); 


PUT  SKIP(2); 

DO  1=1  TO  d; 

(JET  FILE(DATFILE)  LIST  (Y(I)); 

POT  SKIP  LIST{'Y  (M.')  =',Y{I)); 

END ; 

CALC  LAMPDA_B_Y  =  (Y-TRANS)*(A  _MATRIX )»!'( Y )  */ 

LAMBDA_B  Y  =  ?: 

DO  J=1  TO  D-l; 

DO  i=j>i  Tc  r; 

LAf-BDA  ?  Y  =  LAMBDA_3_Y  +(  « ( I+J  +  1  )-Y(  I)«Y(  J  )  )  ; 

end; 

ENi; 

T2  =  o; 

DO  1=1  TC  d; 

T2  =  T2  +  (  A(I)’^-Y'.I)’^Y(I)); 

end; 

LA'^PDA_B_Y  =  f2*L*'1BDA_P_Y  )  +  T2 ; 

/-  ADD  LAM3DA_B_Y  TO  (  B-VECTCR ) *(  Y  )  S.  STORE 
DO  1=1  TO  d; 

LA^^3DA_3  Y  =  LAMBDA  B_Y  +  (  BU)  -  Y '  I  )  ) ; 

end: 


/*  ADD  LAMBDA_3_Y  TO  C  ii  STORE  IN  LAM3DA_B_Y  */ 

LAMBDA  ?  Y  =  LAMBDA  BY  +  C; 


/’■'  */ 

/*  AWAIT  LAMBDA.  A?_x  CALCULATED  IN  THE  OTHER  CLUSTER 

/'■c  «/ 

! !;s  s:.-  sis  if.  if  if  i-  if  if  it.  if  if  jjs  5;:  >!< s)!  *  4:  j>t  *  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  *  if  * if  if  if  if  it  f 


C.ILL  ''W»IT{ -MEVC.X); 

PUT  SKI?(2)  LIST( 'LAMBDA_B  Y  =',LAMBDA_B  Y  ); 
PUT  SKI?  LIST  ( 'LAMErA_AP_X  =  '  ,LAM3DA_A?_K  ) ; 

!  ififif-.fifififififififififififif  ififififififififlfifit.ifififififi;.ifififififtfifififififififififi!fififififif  y 


/-  ADL  THE  LAM3DA_AP  X  VALUE  RECEIVED  FROM  */ 

THE  OTHER  CLUSTEP.~7I  «  THE  ETHEI-NET  TO 
/*  THE  LA^3DA_P_Y  VALUE  CUCULATED  IN  THIS 

/■■■  CLUSTER,  AND  COMPARE  THE  RESULT  TC  THE  */ 

/if  TR'ESHOLD  VALUE.  - 


T2  =  LAMIDA_E_Y  +  LAMBDA_AP_X; 
IF  (T2  >  THRESH)  THEN  DC; 


PUT  SKIP  LIST(  'RESULT 

end; 

ELSE  do; 

PUT  SKI?  LIST(  'RESULT 

end; 


=  ',T2,  'IS  >  THRESHOLD  '); 
=',T2,'IS  <  THRESHOLD  '); 


DO  I=e  TO  1007; 

DO  J=0  TO  500;  /*  DELAY  LOOP  */ 

end; 

end; 


/*  */ 
/*  NOTIFY  HOARD  3  TO  CONTINUE  WITH  NEXT  INPUT  VECTOR  / 


CALL  ADVAN0?(B2EVC); 

end;  '  /*  END  OF  DO  WHILE  (EOF  =  FALSE)  LOOP  -/ 

PUT  SKIP(3)  LISK'END  OF  INPUT  DATA'); 

END  PB2; 


j  si?  3'^  s^s  5.S  j;<  5'^  :*<  3*x  i'i  lilt  3*,t  3lt  sit  sj;  3;t  s^t  sft  sjt  s;*  sit  sje  sji  >;t  sjc  s*?  sjc sit  sjs  3)5  s^t  >*c  sjt  sie  sjt  sjc  sjt  s;t  sit  sit  ;;t  i\t  sV*  sjt  sit  s'^  s;:  s',?  sjt  / 


/si' 

/»;< 

/« 

/=!“• 

/* 

/* 

/>:; 

/- 

/- 

/# 

/* 

/!p 

/* 

/" 


#/ 


?33  is  residant  in  local  neiiory  of  3PC  3,  CLUSTER  B. 
This  pmcelure  performs  the  followinF:  operations: 


1.  Loads  Quadratic  eauation  parameters  A,3,C,D. 


’?/ 

«/ 


»::/ 


2.  Feads  sensor  P  otservation  vectors  fron  disH: 

3.  Comnutes  the  Conditional  LL?.  •'  LA'^BDA_r?_Y  ) 
to  send  to  sensor  A  for  further  computation. 

4.  S  -.h-nits  a  reouest  into  the  FRB  oueue  to  send 
the  CLLR  statistic  to  sensor  A. 

5.  Advances  ev®ntcoiint  BIEVC  to  signal  sensor  A 


that  its  awaited  statistic  is  available. 


*/ 

/ 

sf/ 

/ 

=■•/ 

>ic/ 


^  s;<  >;c  lit  i;s:;i3;:](;:(i:;3  3i(s::};s3{t  31';#  3;:3S::{t3i;stt3;:4;s(c:(c  3;::iC3^3)c;(ci(;3(C3i:3;tsic>;ts;t3;c3i:3jc3(t3{::;t3i(3;i:;t3ie3;:3iC3;e3;t3^s;ts^  / 


?P5:  procedure; 

i;riCLUDF  'SYSDEF.PLI 


^REPLACE 


PA  BY  '8000 'B4,  /*  PI  IS  SET  TO  THIS  VALUE  »/ 
P3  BY  '8CC0'B4,  /*  P2  IS  SET  TO  THIS  VALUE  «/ 


FR3  BLOCK 

LENGTH 

BY 

20,/* 

USED 

TO  CONTROL 

*/ 

ERB^BLOCK, 

_LENGTH_M1 

BY 

19,/* 

ERB 

SIZE 

*/ 

TRUE 

BY 

'I'B. 

F«LSE 

BY 

'0'B, 

ONE 

BY 

'0001 

'B4; 

DECLAPE 


/*  PAPAFILE  CONTAINS  TEE  FOLLOWING  PARAMETERS  */ 

V/ 

/*  1.  MATHIX/VECTOP.  DIMENSION.  */ 

/-  2.  D  DIAGONAL  ELEMENTS  OF  TEE  MATRIX-A?.  */ 

/*  3.  CCL  BY  COL  ELEMENTS  BELOW  DIAGONAL  OF 

r*  MATRIX-AP.  */ 

/-^  4.  D  ELEMENTS  OF  VECTOR-BP.  '=/ 

/-  5.  SCALAP-CP.  >:=/ 

/*  */ 

/-  DATAFILE  CONTAINS  THE  FOLLOWING  VALUES  -/ 

/*  ’!'/ 

/-  1.  D-ELFMENT  Y-VFCTORS. 

/If  if/ 


(PARAFILE, DATAFILE)  FILE, 

EOF  3IT(1)  STATIC  INIT(FALSE), 
(I.J.D.N)  FIXED. 

'  A?f  528 ) ,BP(32) ,CP,T1 ,Y^32) )  FLO»T, 


!  j);  sjs :;e  s;-.  if.  if.  sj; 

/« 


5?  ^  Sis  oS  sfc  S;  #  sl^  !ls  sit  sit  sis  :(:>!!  si:  s|t:;ts|ts|ts;: 


/’• 

/i.- 

/if 

f  * 

/if 

/if 

/if 

'/if 


INDEX  VARIABLES  AND  CONSTANTS  USED  F0r 


INDEXING  IN  THE  ERR  (E~B_INDEX) 
SFCUENCIMG  S,  CONTROL!  II.JJ.K  ) 
IDENTIFYING  DATA  TRANSFE - ( DATA_TY?S  ) 
IDENTIFYING  OPPOSITE  CLUSTiI-  ADDRESS 


sis  SIS  sit  sf:  s  .t  :;s  3(t  s;:  sf:  S)t  sit  3|s  s;:  sit  sis  SI:  s}t  sjt  s^  sis sjsslt  sit  sit  sit  sit  s;c  sit  sit  sit  sit  >;t : 


s;:  if  if  if  :|:  sit  ^t  si:  :;t  sit  Sit  s;; 


5.5  Sit  ^ 

s.t/ 

if/ 

if/ 

=V 

Sit/ 

if/ 
if  / 
if/ 
Si-  sj!  ^ 


FF.B  INDEX 

( iiTjj) 

if 

D4TA  TYPE 
CLUSTER  ADDRESS 


FIXED. 

PIT(16) . 

BIT(16)  STATIC  IN  IT  ( '00.^"' '14  )  . 
BIT(8)  STfEIC  INIT( '?! 'B4)  , 
PIT(ie)  STATIC  I,NIT(  '0001  'Ri;  . 


4c  lie  3ic««a;c)ec9!c«9;:9!t>!c9!c:^;ic3!c3ic:{e  3!:  s^e^slt^siesloi: 

/#  #/ 

/*  POINTERS  ARE  USED  IN  THE  EOLLO'iflNG  MANNER 
/*  */ 

/*  PI  SET  TO  PA  TO  BE  ADDED  TO  SEGMENT  ADDR  ?!8e0  */ 

/«  P2  SET  TO  PP  TO  BE  ADDED  TO  SEGMENT  ADDP  0B00  */ 

/*  #/ 

^  4;  41 4: 4:  at:  lie  #  >;e  lie  lie  jjc  4e  4: 4c  4c  4c «  4: «  « Oc  4( « ctojc  4c  4c  4c  4c  ij:  sic  4e  lie  4;  igc  lie  4c « lie  4e  lie  sjc  4:  v  « >;e  sic  lie  4c  4: 4t  / 


(P1,P2)  POINTER, 


THE  ETHERNET  REQUEST  PLOCE  (ERB) 
ETHERNET  REQUEST  PACKET  (ERP)  STRUCTURE 
IS  USED  IN  THE  FOLLOWING  MANNER 


/4c  COMMAND  =  1  EOF;  DATA  TPANSEEF  OVER  E-NZT  */ 

/’>  TYPE  (NOT  USED  BY  THIS  PROCEDURE)  ’V 

VALUE  (NOT  USED  BY  THIS  PROCED'JrZ)  -/ 

/4c  REMOTE_ADDR  =  CLUSTER^ADDRSSS  OF  DESTINATION  m/ 

/4s  4'./ 

/ V 4eiie4c4e  1:24:  Ile4e4s4es;e i|ei;e4e4e4e4e4cM4e4e4e4e4e 4:4c 4c4c4c4:4csics|e4cs;c3;c4e4c4;4e4:4c4:4esi:4:4e4e4c4:i;e:;e4:  / 


1  ER3(0:SRB  BLOCK  LENGTH  Ml)  BASED  (?1  )  , 
2  COMMAND"  "BIT(8)7 
2  TYPE  BIT(S), 

2  VALUE  BIT(16) , 

2  REMOTE  ADDR  BIT (16). 


^  ^  >{<  “JC  5|C  5jS  3^  9(C  Vp  3^  3^'  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  **'  ^  ***  ^  ^  '!•  a;:sS4!4c:'cc»4c4:4:4csSsS/ 

/a;c  4-'/ 

/-'  EASE  LA.^'?DA_P?_Y  AT  P2  =  PE  'OFFSET  ADD  TO  D^T*  m/ 
/-  SEGMENT  =  f 

/if  4:  / 

/  4e  4e  aje  4!  ale  ale  4e  4e4e  4:  aje  i{e  4;  4!  4- He  4c  4: 4: 4s  4: 4e  4e  4e  4: 4:46  46  5?  4: 4e  4c  >?  *!=  4t  Jic  4c  Sr  4c  4t  4c  4t  4c  4e  4c  4c  4=  4c  4c  4c  4c  4;  4e  4i  / 


LAMBDA  BP  Y  FLOAT  BASED^:?2); 


SFT  POINTERS  TO  VALUFS  INDICATED  IN  REPLACF  iROvE  -/ 
UNS?EC(?1)  =  ?a; 

UNSPEC(P2)  =  ?3; 


-- >  V' ^  *  ”>  "j* -ji ’j* 


/>;(###«««  )!c9;c>icw«:(ci((«:(c9i:«:(e:te]tc4iDc4i««iii4t««4i«#i!i:{c:«c:«c##:4e««3(c#««#iiciic:tc;(c>ic:tc«  f 

/«  #/ 

/*  INPUT  PARAMETERS  FROM  DISK  FILE  */ 

/«  «/ 

/*  MATRIX  &  VECTOR  DIMENSION  (D  =  INTEGER)  */ 

/*  */ 

/#  CALCULATE  N  =  #  OF  MATRIX  ELEMENTS  TO  INPUT 
/#  #/ 

/*  MATPIX-A?  (SYMMETRIC)  */ 

/«  */ 

/*  DIAGONAL  ELEMENTS  FIRST  (#  =  D)  -/ 

/>i‘  COLUMNS  5EL0W  DIAGONAL  NEXT  (#  =  N-D)  */ 

/«  >:=/ 

/*  VECTOR-IP  (D  ELEMENTS)  */ 

/=;=  */ 

/*  SCALAR-C?  (1  NUMBER)  */ 

/*  */ 

^ ;{s  >;«  j!t  jj!  sis :(« =!*!{'* 'S'#  si'#  ■-’•"'■‘’I'  / 

OPEN  FILE(P<KAEILE)  STREAM  INPUT; 

GET  FILF(?‘RAFILE)  LIST  (D); 

N  =  (  (r  -  D-s-d/e; 

DO  1=1  TO  n; 

GET  FILE(PARAFILE)  LIST  (A?(I)); 
enl; 

DO  1=1  TO  d; 

GET  EILE(PARAPILE)  LIST  (BP(I)); 
end; 

GET  FILEfPAEAFILE)  LIST  (C?).* 

PUT  SKIP  LIST  {'DIMENSION  =',D); 

/  !|s  sis sis  s;;  si:  si:  sjs  sfs  s)c  sis  s|:  sjs  sis  sis  s;s  sis  sis  s;s  sis  sjs  sjs  sjt  sis  sksis  s(f  SJs  sS  #  s|:  sis  sis  sis  >|s  sis  sis  sis  sis  sis  sis  sis  5|5  sis  sis  sis  sis  s|s  sis  -  sis  5|s  sis  / 
/sis  SiS/ 

/*  INPUT  AND  PROCESS  Y-VECTOP.S  -/ 

/*  ■■■/ 

/s|ss|cslss|ss;sslssiss|ssiss|sslss|ssi:s|ss|sstss;ss^siES|ss!:s;:s;Es(sstssisstcs!Es;ss;cs{Esissi:slssics|ss!s3(ss|cs;es(cs;;s!E3{s:!ss|ss|sslss|ss|ssississ|ss|:  / 

ON  ENDFILE( DATAFILE)  EOF  =  TRUE; 

OPEN  FILE(DATAEILE)  STREAM  INPUT; 

DO  si'RILEfEOF  =  FALSE); 

CALL  A*rA  IT(E2EVC,K)  ; 

PUT  SEIP^2); 


DO  1=1  TO  DJ 

GET  FILE(DATAFILE)  LIST  (Y{I)); 

PUT  SKIP  LIST('T  (M,')  =',Y(I)); 

end; 

/♦  STOP.E  (Y-T^ANS  )*(AP-^'ATRIX)*(Y)  IN  LAMEDA_BP_Y 

LAMBDA  BP  Y  =  0; 

DC  j=i"to"d-i; 

DO  I=J+1  TO  d; 

LAMBDA  BP  Y  =  LAMBDA_BP  Y+( AP( I+J+1 ) *Y( I )*Y ■ J ) ) ; 

end; 

end; 

T1  =  0; 

DO  1=1  TO  d; 

T1  =  T1  +  (A?(I)«Y(I)*Y(I) ); 
end; 

LAMBDA_B?_Y  =  ( E^LAMBD A_BP_Y )  +  Ti; 

/*  ADD  LAMPDA_BP_Y  TO  (BP-VECTOR  )*(  Y  )  5.  STORE  */ 

DO  1=1  TO  d; 

lAMlDA  B?  Y  =  LAMBDA  BP  Y  +  (P?^)  *  Y'D); 

end; 

ADD  LAMBDA_BP_Y  TO  CP  S.  STORE  IN  LAM3D‘_B?_Y  «“/ 

LAMEDA_B?_Y  =  LAMBDA_BP_Y  +  CP; 

/*  -/ 

/-  GIT  A  TICKET  TO  ENABLE  A  WRITE  TO  THE  ERB  -/ 

/if-  if  / 

5;:  3p  :(<*)(!##>>;♦  5?  5(1 «  s?  >!<«  i;«  «««#«>;£  a^e «»;!  SCS  5?  #  j;!  s;:  #  s?  5?  V  ¥  / 

II  =  TICKET(ER3_WRITE_RE0UEST  )  ; 

/-  II  NOW  HAS  THE  VALUE  OF  THE  TICrE™  RETURNED 
JJ  =  ^EAD(ER3_WRITS’) ; 

/”  JJ  NOW  HAS  THE  VALUE  OF  E?.B_WRITE 
DO  WHILE(JJ  <  II  ); 

JJ  =  READ(E?.B_WRITE)  ; 

END; 


.  •  •  ^ .  ' 

■  ^  K  ■ 


•  1 


77 


/«  IF  ETHIRNET  request  block  (erb)  is  full-busy  wait  */ 
JJ  =  READ (ERB  READ); 


4’-  .'V/ 


DO  WHILE((II  -  JJ)  >=  ERB_BLOCK_LENGTH); 

JJ  =  READ(ERB_RSAD); 

end; 

/>?  if/ 

/*  WRITE  TO  ERB  WHEN  A  SLOT  13  OPEN  */ 

/*  COMMAND  =  1  FO^  DATA  TO  BE  TRANS EERED 

REMOTE  ADDF.  =  DESTINATION  CLUSTER  »DDRESS 
/*  */ 

:;s:!::|i*#5!5:!cj!cj!s5!e:^>!tsit^:!:5ie>!:5;s3i!s!ss!5Sr— >!:s;e>!s*5',s!|s5!:s!s  / 


EPB  INDEX  =  M.OrdI  ,ER3_BL0CK_LENGTH)  ; 

ERRTERB  INDEX) .COMMAND  =  DATA  TYPE; 
ERB(ERB~INDEX ) .REMOTE  ADDR  =  CLUSTER  ADDRESS; 


/’•  */ 

/>f‘  NOTIFY  MCORTEX  THAT  ERP  WRITE  IS  COMPLETE  */ 

/V  V/ 

y. j;;  s|:  j;:  s;!  sjs  5;!  *  s;< sic  5^  siJ  #  :i!  J[:<«  Jje#  #  #:(s*5;ss!«  sit  sis  !4!s!:*j!s:;s:^;;c  St  / 


C'LL  ADVANCF(E?.3_WRITE) ; 

/ififififififif  sl-.sicsitsitScsicsicsieSssiesitslesiesiesjesitsiesJeSt^sjcBicstStsisScsfsjesicsltSss^tslesissicslcslcsicsicslcsf  sSsJo^Vt!::!!  / 
/■-;= 

/^i'  AN  ETHERNET  hECUEST  PACKET  (ER?)  IS  NOW  SETUP  >?/ 

/-  IN  THE  ETHERNET  REQUEST  BLOCK  (ERB).  THIS  WILL  -/ 

/*  SIGNAL  THE  DSIVE?  PROCEDURE  ON  BCA^.D  1  TO  FETCH 
THE  D4TA  STOKED  IN  COMMON  MEMORY  (LAMBD‘  B?_Y)  AT 
/■'  ADDRESS  0t’)5’:  uCC5'-0e00  ;bCC3  i.  "^OVE  IT  TO  -/ 

/=-'  ADDRESS  eS00:S0DA-0?00  :90DD  (  TRANSMIT_DAT  A_ELOCK  )  */ 

/’^  ALSO  IN  COMMON  MEMORY  TO  BE  PACKETIZED  AND  SENT  TO  >:=/ 
/-  the  REC'^I  VE_DATA._PL0CE  (.RD?)  0?  THE  OTHER  CLUSTER  -/ 
/-  ADDRESS  0b00:°67C-0800;967E  WHERE  IT  IS  MOVED  TO  -/ 

ADDRESS  eBef‘:9DD0-0B02-9DD3  IN  THE  OTHEh  CLUSTERS  "'/ 

/-'  COMMON  mfmORY  (LA'^BDA  P?  Y).  */ 

/*  si:/ 

/  thesis  Sic  s'/ Si:  sits'/ si:  sicsi:  s/s!e  s/si:  s/s:c  sics/ s!cs{:s{css:sic:i:<cs{c;{c:ttsge3(cs/ii:  sic  sics/slcsics/ sics/ s/ sic  sics;;  cics/si:  sits/ s/s;:  sic  / 

ys/5{c:;c:/stc:/5{cs/s;:  v#s/s;c3/:jc^t  s;c^ts;e3/#s/s/s/s/«s/s/s{:s/5/s/s;cs/)itsics/5/8lcs;ts;c5/s;;s;c;/s/:{C]/s/s:cs/xcs;ts/  / 

*/ 

/’-  NOTIFY  OTIIFP  CLUSTER  TH»T  BATA  IS  -EADY  '*/ 

/if  if/ 

/ :/  si: ;/ :/  s/  ;/ ;/  si: ;/ 5/  s/ :/  •/  s/  5/  s/  s/  s/  si:  s/  s/  5/ :/  s/  s/ :/  ^  s/  s/  s/  si:  s/  5/ :/  s/  s/  s/  s;: :/  s/ :/ :/ :/  s/  5/ :/  s/  s’:  s/  / 


>.  •  •  _M  *_«  *  ‘  .  •  *'•  k.*"  mS*  ta*-  -Ni  V*»  .N 


«\vN] 


-.1 

-■''■rRnvI 
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CALL  ADVANCE(BIEVC); 

E  =  iDD2BIT16(K,0NE); 
end;  /*  END  OF  DO  WHILE  (EOF  = 

PUT  SKIP(3)  LIST('FND  OF  INPUT  DATA') 
END  P33i 


-  -.-.I 
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